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

var s, n: integer;
begin
s := 58;
n := 1;
while s > 0 do
begin
s := s - 8;
n := n + 3
end;
writеln\(n\)
end.