Сколько раз выполнится цикл? Какое значение примет переменная Y после исполнения

Сколько раз выполнится цикл? Какое значение воспримет переменная Y после исполнения программы?

Var y,x:integer;
Begin
y:=0; x:=10;
while xgt;0 do
begin
x:=x-2;
y:=y+x;
end;
writeln (y=,y);
end.