Ответ:

№1

var s,x,n,i:integer;

begin

s:=0;

write('Введите количество чисел: ');

readln(n);

writeln('Введите числа: ');

for i:=1 to n do

begin

readln (x);

s:=s+x

end;

writeln('Сумма чисел равна ',s);

end.