Напишите программу,которая запрашивает у пользователя ввод чисел,пока не будет нажата цифра "ноль".На экран выводит сумму всех введенных чисел

Предыдущий
вопрос Следующий
вопрос

На паскале:

var

a, s: integer;

begin

s:=0;

a:=1;

while a<>0 do

begin

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

readln(a);

s:=s+a;

end;

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

end.