Задание

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

var s, n: integer;

begin

s := 300;

n := 100;

while s div n >= 2 do begin

s := s + 5;

n := n + 5

end;

writeln(s)

end.