Question

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

Answer 1

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

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