Турбо Паскаль - Введите значение х, выведите значение функции sign(x).

[Руслан086]

помогите пж с программой в паскале
Функция sign(x) задана аналитически cледующим образом
sign(x)=
1, если х>0;
0, если х=0;
-1, если х<0;
Введите значение х, выведите значение функции sign(x).

[p51x]

И? Как пробовали? Какие ошибки выдал компилятор?

[newerow1989]

function sign(x:real):real;
begin
   If x>0 then
      Result:=1 else
   If x<0 then
      Result:=-1 else
      Result:=0;
end;

var x:real;
begin
   Write('x = ');Readln(x);
   Writeln(sign(x):2:0);
   Readln;
end.