Задание

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

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