помогите с контрольной по информатике

какое значение будет принимать переменая y после выполнения фрагментов программы:
1)y:=0; x:=10
While x>0 Do
Begin
x:x-2;
y:=y+x;
End;
WriteLn(y);
2)y:=1; x:=15;
While x>5 Do
Begin
x:=x-3;
y:=y*x;
End;
WriteLn(y);