Проанализируйте работу программы.
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.
Сколько раз исполнится тело цикла?

• 4
• 3
• 5
• 6