y:=3 while y>=5 do y:=y+7; write (y); Вот так удобнее. Нужно к y прибавлять 7, пока y не станет больше или равен пяти: y = 3 y = 3 + 7 = 10 y >= 5 Ответ: 10 =)