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

Question

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

---

Answer 1

13)

Var

x:integer;

Begin

Readln(x);

Begin

If x<0 then</p>

Write('y=-1') end;

Begin

If x=0 then

Write('y=0') end;

Begin

if x>0 then

Write('y=1') end;

End.

Comments

Заюш,спасибо тебе)