Напишите на паскале программу вычисляющую значение функции y=1 при x> 0, y=0 при x=0, y=-1 при x< 0

Var   x, y : integer;  begin
  WriteLn ('Введите цело число:');  ReadLn (x);    if x>0 then      y:=1  else if (x=0) then    y:=0  else    y:=-1;      WriteLn ('Y = ',y);      end.