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

Question

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

---

Answer 1

program HelloWorld;

var x,y: double;

begin

 

   

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

    readln(x);

    readln(y);

   

  

   

    while (x<0) do </span>

    begin

        if(x

        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.