хелпаните плиз прошу посчитайте

При вводе чисел из задания мы получим число 5.

var

x,s : integer;

begin

s:=0;

repeat

readln(x);

s := s + x;

until x = 0;

write(s);

end.