Дана система: 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