Решить на паскале: вычислите сумму данных 100 натуральных чисел. вводятся 100 чисел, сумму которых необходимо посчитать.

Var a, s ,i: integer;
begin
s:=0;
for i:=1 to 100 do begin
readln(a);
s:=s+a;
end;
writeln('Сумма введённых чисел = ', s);
end.