Обусловьте, что будет выведено на экран после исполненья фрагмента программки

Определите, что будет выведено на экран после выполнения фрагмента программки на
языке программирования Turbo Pascal:
x := 10;
y := 0;
While x gt; 0 do
begin
x := x - 3;
y := y + x;
end;
writeln (y=, y);