Сколько раз выполнится тело цикла: k:=2; white k<4 do k:=k+1
По сути 2 2<4 2+1=3<br>3<4 3+1=4<br>4 не < 4