Задание

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

var s, n: integer;

begin

s := 53;

n := 1;

while s > 0 do

begin

s := s - 9;

n := n + 3

end;

writеln(n)

end.