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

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