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

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