Помогите с информатикой. Напишите программу, вычисляющую значение функции!!!

var x, y: integer;beginwrite('Введите x: ');readln(x);if x < 0 then begin y := -1; writeln('y = ', y); end;if x = 0 then begin y := 0; writeln('y = ', y); end;if x > 0 then begin y := 1; writeln('y = ', y); end;end.

var  x: real;  n: integer;begin  Write('Введите любое число: ');Readln(x);  if x < 0 then n := -1  else  if x = 0 then n := 0 else n := 1;  Writeln('y=', n)end.Тестовое решение:Введите любое число: 5y=1