Question

Сделайте задачу, дам максимальное кол-во баллов

Answer 1

Ответ:

var y,x:longint;

begin

read(x);

if x<0 then y:=-1;

if x=0 then y:=0;

if x>0 then y:=1;

writeln(y);

end.