Помогите плиз.Какое значение будет принимать переменная Y после выполнения фрагментов

Помогите плиз.
Какое значение будет принимать переменная Y после исполненья фрагментов программки?

a) Var Y, X: integer;
Begin
Y: = 0; X: = 10;
While X gt; 0 do
Begin
X: = x 2;
Y: = Y + X
End;
Writeln (Y=,Y);
End.
b) Var Y, X: integer;
Begin
Y: = 1; X: = 15;
While Xgt;5 do
Begin
X: = X 3; Y: = Y * X
End;
Writeln (Y = ,Y);
End.