Дано число. если это число положительное,то вывести что оно положительное.в противном случае вывести,что оно отрицательное

Var a:integer;
begin
  readln(a);
  if a>0 then writeln('Число положительное')
    else writeln('Число отрицательное');
end.

Var a: integer;
begin
readln(a);
if a>0 then
writeln('число положительное');
if a<0 then
writeln('число отрицательное);
end.

Что делать в случае, если число равно 0?