Verifica se é o Numero é Par ou Impar.Função For e (mod 2).

//Verifica se é o Numero é Par ou Impar.Função For e (mod 2).

program exemplo_for;
 // FOR variavel := VALOR    TO  Variavel  final DO
 // FOR variavel := Valor  DOWNTO Valor final DO
uses crt ;
var  i : integer;


begin
  for i := 10 downto  1   do
      if(i mod 2 = 0) then
      writeln(i, 'eh par')
  else
      writeln('eh impar');
  readkey;

end.