Запишите число, которое будет напечатано в результате выполнения следующей программы:
var s, n: integer;
begin
s := 500;
n := 200;
while s div n >= 2 do begin
s := s + 5;
n := n + 5
end;
writeln\(s\)
end.