var s,k:integer;
begin
s:=0;
repeat
readln(k)
s:=s+k;
until k=0;
write (s);
end.
Объяснение:
используем цикл с постусловием
