Как решить по информатике y: =3 while y> =5 do y: =y+7; write (y);

 y:=3
while y>=5 do
       y:=y+7;
write (y);

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