const
handsfree = false;
nmax = 10;
random_min = -50;
random_max = 50;
var
a: array[0..nmax] of real;
i, n: integer;
sum, x: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 0 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 0 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
write('x = ');
readln(x);
sum := a[n];
for i := n - 1 downto 0 do
sum := sum * x + a[i];
writeln('S = ', sqrt(sum));
end.
1) Чтобы проверить, является ли треугольник равносторонним, нужно узнать, равны ли все его стороны:
if (a = b) and (b = c) then
writeln('TRUE')
else
writeln('FALSE');
2) У равнобедренного треугольника должны быть равны две стороны:
if (a =b) or (b = c) or (a = c) then
writeln('TRUE')
else
writeln('FALSE');
3) Для существования треугольника сумма любых его двух сторон должна быть больше третьей:
if (a + b > c) and (a + c > b) and (b + c > a) then
writeln('TRUE')
else
writeln('FALSE');
4) Тут всё просто, первая четверть это неотрицательные значения для осей абсцисс и ординат:
if (a >= 0) and (b >= 0) then
writeln('TRUE')
else
writeln('FALSE');
С последним разберешься сам, там тоже несложно. В единую программу, надеюсь, сможет восьмиклассник собрать части кода?