Задание

Запишите число, которое будет выведено в результате работы программы:

var s, n: integer;

begin

s := 150;

n := 0;

while s + n < 300 do begin

s := s - 5;

n := n + 25

end;

writeln(n)

end.