.......................................................
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.
Рассмотрен, также, вариант "если они равны" (можете удалить последнее условие, если не нужно)
Объем 45.72"45.72"1200*1200*24= 7.224*10^10 бит≈ 9.030Мбайт
Procedure s_v(r:real; var s,v:real);
begin
s:=4*Pi*r*r;
v:=4/3*Pi*r*r*r;
end;
var a,b:real;
begin
s_v(5,a,b);
writeln('r=5, S=',a:5:2,' V=',b:5:2);
s_v(10,a,b);
writeln('r=10, S=',a:5:2,' V=',b:5:2);
s_v(15,a,b);
writeln('r=15, S=',a:5:2,' V=',b:5:2);
<span>end.</span>
Э.. А где ещё? Нужен вопрос! а тут половина текста.