Вводятся n целых чисел. Найти сумму всех чисел.

Вопрос школьника по предмету Информатика

Вводятся n целых чисел. Найти сумму всех чисел.

Ответ учителя по предмету Информатика

Program n1;

var n,sum,a,i: integer;

begin

readln(n);

sum:=0;

for i:=1 to n do

begin

readln(a);

sum:=sum+a;

end;

writeln(sum);

end.