Найти сумму чисел введенных с клавиатуры количество чисел задать через оператор read. Паскаль, срочноо

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

Найти сумму чисел введенных с клавиатуры количество чисел задать через оператор read. Паскаль, срочноо

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

var i,n,s,m:integer;

begin

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

for i:=1 to n do begin

write(‘[Сумма: ‘,s,’] Введите ‘,i,’-е число: ‘);

readln(m);

s:=s+m;

end;

write(‘Сумма всех введённых чисел равна: ‘,s);

end.