Var i,q,a:integer;
begin
for i:=1 to 20 do begin
read(a);
q:=q+a;
end;
writeln(q);
end.
Какое задание? пару ответов есть
Var p, s, a, b : real;
begin
writeln ('Введите - А');
readln (a);
writeln ('Введите - Б');
readln (b);
p:=Sqrt(a*a+b*b)+a+b;
s:=a*b/2;
writeln ('Периметр - '+p);
writeln ('Площадь - '+s);
end.