Question

Задание по информатике 8 класс 30 баллов​

Answer 1

var

s, x: integer;

begin

s:=0;

end;

repeat

readln(x);

s:=s+x

until x=0;

writeln(s);

end.