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

var a,z:integer;beginwrite('a = ');readln(a);if a<0 then z:=-1 else if a=0 then z:=0 else z:=1;writeln('z = ',z);end.Пример:a = 23z = 1