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

program numSum;var inp,sum:longint;begin  repeat   readln(inp);  sum:=sum+inp;  until inp=0; write('Sum - ',sum); readln;end.

var a,s:integer;beginwriteln ('Введите целое число');a:=1;while a<>0 dobeginreadln (a);s:=a+s;end;writeln ('Сумма всех введенных чисел = ', s);end.