Ответ:
Объяснение:
program Fy1;
var x:integer;
begin
write('Введите x ');
readln(x);
if x<0 then</p>
writeln('y=-1')
else
if x=0 then writeln('y=0')
else writeln('y=1');
readln;
end.
----------------------------------------------------------------------------2 вар.
program Fy2;
var x,y:integer;
begin
write('Введите x ');
readln(x);
if x<0 then</p>
y:=-1
else
if x=0 then y:=0
else y:=1;
writeln('y=',y);
readln;
end.