Отсутствует раздел перемененных, в паскале нужно перечислять используемые переменные в самом начале программы
var c: array [1..20] of integer;
i,s1,s2: integer;
begin
s1:=0;
s2:=0;
for i:=1 to 20 do begin
write('Ввод значения для c[',i,'] - ');
readln(c[i]);
if i<=10 then s1:=s1+c[i] else s2:=s2+c[i];
end;
if s1>s2 then writeln('Сумма первых 10 элементов больше, чем последние 10 элементов')
else if s2>s1 then writeln('Сумма последних 10 элементов больше, чем первые 10 элементов')
else if s1=s2 then writeln('Первые 10 элементов равны последним 10 элементам');
end.
Рассмотрен, также, вариант "если они равны" (можете удалить последнее условие, если не нужно)
program area;
var
c,d,e,a,b,r:integer;
s1,s2,s3,max,p: real;
begin
writeln('Введите стороный треугольника');
read(c, d, e);
writeln('Введите стороны прямоугольника');
read(a, b);
writeln('Введите радиус круга');
read(r);
p:=(c+d+e)/2;
s1:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s1:0:2);
s2:=a*b;
writeln('Площадь прямоугольника: ',s2);
s3:=pi*r*r;
writeln('Площадь круга: ',s3:0:2);
if s1>s2 then
max:=s1
else
max:=s2;
if max>s3 then
writeln('Наибольшпя площадь: ',max)
else
writeln('Наибольшая площадь: ',s3:0:2);
end.
г) т.к. там 2 буквы повторяются через 1 букву (ере) (ача)
/ @ ^ @ $ # $ тут тоже 2 символа повторяются через 1 символ (@ ^ @) ($ # $)
(возможно неправильно)