Question

Напишите программу на языке Паскаль, пожалуйста!

Answer 1

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