Проанализируйте работу программы.
Program m_1;
Var X, Y: integer;
Begin
X := 1;
Y := 1;
While X < 5 do
Begin
Y := Y*2;
X := X+1;
End;
End.
Сколько раз исполнится тело цикла, если изменить команду X:=X+1 на X:=X-1?

• Бесконечно
• 0
• 4
• 5