№1
var s,x,n,i:integer;
begin
s:=0;
write('Введите количество чисел: ');
readln(n);
writeln('Введите числа: ');
for i:=1 to n do
readln (x);
s:=s+x
end;
writeln('Сумма чисел равна ',s);
end.
