Question

Решите задачу на языке паскаля

Answer 1

13)

Var

x:integer;

Begin

Readln(x);

Begin

If x<0 then

Write('y=-1') end;

Begin

If x=0 then

Write('y=0') end;

Begin

if x>0 then

Write('y=1') end;

End.