Дана система:z=1, если а>0z=0, если а=0z=-1, если z помогите сделать ** Паскале

Question

Дана система:z=1, если а>0z=0, если а=0z=-1, если z помогите сделать на Паскале

Comments

z:=1

---

Если a>0 то z = 0, правильно?

Answer 1

Var a,z:integer;
begin
write('a = ');
readln(a);
if a<0<br> then z:=-1
 else if a=0 then z:=0 else z:=1;
writeln('z = ',z);
end.

Пример:
a = 23
z = 1