напишите пожалуйста схему в программе PascalABC по этой таблице

program HelloWorld;

var x,y: double;

begin

    writeln('Введите значение x и y:');

    readln(x);

    readln(y);

    while (x<0) do

    begin

        if(x<y) then

        begin

        x:= x+1;

        y:= y/2;

        end

        else

        begin

        x:= x+3;

        y:= y-2;

        end;        

    end;

    x:= x-5;

    y:= y+3;

    writeln(x);

    writeln(y);

end.