Какой минимальный диаметр должен иметь стальной трос подъемного крана, если максимальная масса поднимаемого груза m = 5т?

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?