Проанализируйте работу программы.

program math;
var x, y: integer;
begin
x:=1;
y:=1;
while x<5 do
begin
y:=y*2;
x:=x+1
end;
end.

Ответьте на вопросы.
1) Сколько раз исполнится тело цикла?
2) Какое значение примет \"x\" после завершения программы?
3) какое значение примет \"y\" после завершения программы?
4) Сколько раз исполнится тело цикла, если изменить условие на x<=5?
5) Сколько раз исполнится тело цикла, если изменить условие на x>=5?
6) Сколько раз исполнится тело цикла, если изменить условие на x>0?
7) Что произойдёт, если из тела цикла убрать команду x : =x+1?
8) Сколько раз исполнится тело цикла, если изменить команду x : =x+1 на x : =x+2
9) Сколько раз исполнится тело цикла, если изменить команду x : =x+1 на x : =x-1?

СРОЧНО, ДАЮ 20 БАЛЛОВ