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