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

var x,y:integer;

begin

 readln(x);

 if(xgt;0) then y:=1

 else begin

   if(xlt;0) then y:=-1

   else y:=0;

 end;

 writeln(y);

end.

Pascal

program xy;

   uses CRT;

   var x: real;

       y: integer;

begin

   clrscr;

   writeln('Enter x');

   readln(x);

   if x gt; 0 then y := 1

   else  

       if x lt; 0 then y := -1

       else y := 0;

   writeln('y is ', y);

   readln

end.