напишите на паскале программу вычисляющую значение функции 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.