Сколько раз исполняется следующий цикл i=6 while i>0 do i:=i+3
Бесконечнре число раз так как i всегда >0