Question

Пожалуйста помогите составить программу по данной блок схеме.

Answer 1

#Pascal

program xy;

   uses CRT;

   var x: real;

       y: integer;

begin

   clrscr;

   writeln('Enter x');

   readln(x);

   if x > 0 then y := 1

   else  

       if x < 0 then y := -1

       else y := 0;

   writeln('y is ', y);

   readln

end.

Answer 2

var x,y:integer;

begin

 readln(x);

 if(x>0) then y:=1

 else begin

   if(x<0) then y:=-1

   else y:=0;

 end;

 writeln(y);

end.