Заданы два числа х, у. Переменной m присвоить значение 1, если х<у, -1, если х>у и 0 если х=у.

var x,y,m:integer;

BEGIN

readln(x,y);

if (x=y) then m:=0;

if (x>y) then m:=-1;

if (x<y) then m:=1;

writeln(m);

end.