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

var

   x,y:real;

begin

   readln(x);

   if x gt; 0 then

       y := sqr(x) * 4

   else if x lt; 0 then

       y := x*x - 8

   else

       y := 12 / (x - 1); (*тут x-1, поэтому что на 0 делить нельзя*)

   writeln('x = ', x:2);

   writeln('y = ', y:2);

end.