■ Pascal 006 ► Par o non

Ejercicio 006: Determinar si un número es par o non.

Program Pas_006;
Uses Crt;
Var
     num : integer;
Begin
     ClrScr;
     WriteLn ('Ingresa número');
     ReadLn (num);
     if num mod 2 = 0 then
          Write ('Es par')
     else
          Write ('Es non');
     ReadKey;

End.