Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 0;
s := 450;
while s >= 0 do begin
s := s - 30;
n := n + 1
end;
write(n)
end.