Задание

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

var s, i: integer;
begin
s := 24;
i := 6;
while s mod i >= 2 do begin
s := s + 9;
i := i + 5;
end;
writeln\(s\)
end.