Проанализируйте работу программы.
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 > 0?

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