1 Пожалуйста. Напишите программу

Question

1 Пожалуйста. Напишите программу

---

Answer 1

Var
   s, x: integer;
begin
   s:=0;
   repeat 
      readln(x);
      s:=s+x;
   until x = 0;
   writeln(s);
end.