For - Pascal Pares e Impares

{Menu Ordenado de Pares e Impares}
{By Rafa Guerrero}

PROGRAM BUUUUUU;
        USES WINCRT;
        VAR i,op:Integer;
BEGIN
     Writeln('**Menu***');
     Writeln('');
     Writeln('Pulse 1 para los Numero Pares');
     Writeln('Pulse 2 para los Numero Impares');
     Readln(op);
     If op= 1 then
     Begin
          ClrScr;
          FOR i:=1 TO 10 DO
          IF (i mod 2)=0 then
          Writeln(i);
     End;
     If op= 2 then
     Begin
          ClrScr;
          FOR i:=1 TO 10 DO
          IF (i mod 2)=1 then
          Writeln(i);
     End;
END.