var
s, x: integer;
begin
s:=0;
end;
repeat
readln(x);
s:=s+x
until x=0;
writeln(s);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
s, x: integer;
begin
s:=0;
end;
repeat
readln(x);
s:=s+x
until x=0;
writeln(s);
end.