Мага

program tex;
uses crt;
var
a, s : integer;
begin
s := 0;
repeat
write('vvedite chislo (0 = konec vvoda): ');
readln(a);
s := s + a;
writeln('summa ravna: ', s);
until a = 0;
readln
end.