program raf105;
var a,b:integer;
begin
writeln('Вводите целые числа по очереди');
while a<999 do
readln(b);
a:= a+b;
end;
writeln('Последний результат суммирования: ',a);
end.
Написано на языке PascalABC.NET
program raf105;
var a,b:integer;
begin
writeln('Вводите целые числа по очереди');
while a<999 do
begin
readln(b);
a:= a+b;
end;
writeln('Последний результат суммирования: ',a);
end.
Написано на языке PascalABC.NET