Составить программу которая вводит и суммирует целые числа a, пока a не равно 999. Последний результат суммирования выводится на экран. Даю 50
баллов!​

program raf105;

var a,b:integer;

begin

writeln('Вводите целые числа по очереди');

while a<999 do

begin

 readln(b);

 a:= a+b;

end;

writeln('Последний результат суммирования: ',a);

end.

Написано на языке PascalABC.NET