Estrutura de repetição For

Numero par ou impar

Program Pzim ;
   Uses CRT;
      Var
        i, numero:integer;
       

Begin
   for i:=1 to 3 do
     Begin
       Writeln('Informe um numero');
       readln(numero);
       if (numero mod 2 = 0) then
         Begin
           Writeln('o numero é par',numero);
         end
        else
          Begin
            Writeln('O numero é impar',numero);
          end;   
      end;
 End.
Origem: FASEM