Question

Помогите! Решите задачи! Хоть одну из 2! Пожалуйста)) Только напишите номер задачи, который решили. А то я в этом ничего не понимаю((

Answer 1

var S, a:integer;

begin
S:=0;
repeat
   readLn(a);
   S:=S+a;
until a=0;
ReadLn;
end.