Question

Написать программу (паскаль) входные и выходные данные, пожалуйста очень срочно

Answer 1

var x,y: integer;

begin

readln(x);

if x>1 then y:=x-1

else if x<-1 then y:=x+1

else y:=0;

write(y);

end.