Вводить числа в переменную х. пока не будет введён 0.На печать ...

Сергей

label nach;

uses crt;

var x,s:integer;

begin

s:=0;

repeat

nach:

write('vvedite x=');read(x);

if (x!=0) then begin writeln(x); s:=s+x; goto nach;end else s:=s+x;

until (x=0);

writeln('summa ravna=',s);

end.