Сколько раз исполнится цикл:

i:=4;
while i<10 do
i:=i+3;