Задание: Какое значение будет принимать переменная Y после ...

Ирина

Задание: Какое значение будет принимать переменная Y после выполнения фрагментов программы, сколько раз будет выполнен цикл?
1) Var
x,y: integer;
Begin
Y:=0;
For x:=1 to 9 do
Y:=y+1;
Writeln (‘y = ’,y);
End.
2) Var
Y, x: integer;
Begin
Y:=0;
X:=10;
While x>0 do
Begin
X:= x-2;
Y:= y+x;
End;
Writeln (‘y = ’,y)
End.