Вот прога)
Объяснение:
program n1;
var x: real;
begin
readln(x);
if x<0 then writeln('y = -1');
if x=0 then writeln('y = 0');
if x>0 then writeln('y = 1');
end.
