Тело цикла фрагмента:

х := 20;

while (x > 5) do begin

 x := x div 3 +3;

end;

выполнится....