Пожалуйста посчитайте с информатикой плиз. нужно записать элемент блок-схемы на паскале.

if(x >= y) then

begin

x := x - 100;

y := y + 100;

end;

else

begin

y := y - 100;

x := x + 100;

end;