Пожалуйста посчитайте СРОЧНО РЕШИТЬ

program z1;

var a,s:integer;

begin

s:=0;

repeat

read (a);

s:=s+a

until a=0;

write (s)

end.

Цикл с постусловием

Ввод числа

Вычисление суммы

Вывод суммы, после окончания цикла