Pascal 009 ► Positivo o Negativo

Ejercicio 009: Determinar si un número es positivo o negativo.

Program Pas_009;
Uses crt;
Var
     num : integer;
Begin
     ClrScr;
     WriteLn ('Ingresa número');
     ReadLn (num);
     if num > 0 then
          Write ('Es positivo')
     else
          Write ('Es negativo');
     ReadKey;

End.


Si se desea considera el cero como valor neutro pueden agregarse las siguientes líneas después del segundo "Write" y antes del "ReadKey":

if num = 0 then

     Write ('Es neutro');