program Suma;var s,a:integer;beginreadln(a);while a>0 do begin s:=s+a; readln(a); end;writeln('sumata na chislata e=',s);end.
Standard input is empty
sumata na chislata e=0
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!