Menú para Ordenar Números

Program logicander;


Uses WinCrt;
Var 
    i, j, opc : integer;
Begin


WriteLn ( 'Menu para Ordenar Numeros' );
WriteLn ( '1-Ordenar por Numeros pares' );
WriteLn ( '2-Ordenar por Numeros impares' );
WriteLn ( '3-Ordenar por Numeros primos' );
ReadLn (opc);


If opc=1 then
Begin
    ClrScr;
    
    For i:= 1 to 10 do
    If (i mod 2)=0 then
    
    WriteLn (i);
    
    end;


If opc=2 then
Begin
    ClrScr;
    
    For i:=1 to 10 do
    If (i mod 2)=1 then
    
    WriteLn (i);
    
    end;


If opc=3 then
Begin
    ClrScr;


    For j:= 1 to 2 do
    WriteLn (j);


    For i:=3to 10 do
    If (i mod 2)=1 then
    If (i<>9) then
    WriteLn (i)
    end;


end.