Números Pares e Impares

program numeros_par;
uses wincrt;
var
i:integer;
begin
writeln('ingresa el valor a consultar');
if (i mod 2)=0 then
writeln('es par');
if (i mod 1)=1 then
writeln('es impar');
end.