Menú de Ordenamiento desde 1-10 (Ascendente y Descendente)

Program Logicander;


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


WriteLn ( 'Menu' );
WriteLn ( '1.- Ordenar de Manera Ascendente 1-10' );
WriteLn ( '2.- Ordenar de Manera Descendente 10-1' );
ReadLn (opc);


If opc=1 then
Begin
    WriteLn ( 'Ordenar de manera Ascendente' );


    for i:= 1 to 10 do


    WriteLn (i);


    end;



If opc=2 then
Begin
    WriteLn ( 'Ordenar de manera Descendente' );


    for i:= 10 downto 1 do


    WriteLn (i);


    end;


end.