*******MENU********

program nombre;
uses wincrt;
var
i,op,n:integer;
begin
writeln('**********MENU**********');
writeln('');
writeln('ingrese 1 para ordenar ascendente');
writeln('ingrese 2 para ordenar descendente');
writeln('ingrese 3 para indicar los numeros pares');
writeln('ingrese 4 para indicar los numeros impares');
readln(op);
if op=1 then
begin
for i:=1 to 20 do
writeln('el numero es:',i);
end
else
if op=2 then
begin
for i:= 20 downto 1 do
writeln('el numero es',i);
end
else
if op=3 then
begin
writeln('ingrese numeros pares');
readln(n);
for i:= 1 to n do
if (i mod 2)=0 then
writeln('es par',i);
if(i mod 2)=1 then
writeln('es impar',i);
end
else
if op=4 then
begin
writeln('ingrese numeros impares');
readln(n);
for i:= 1 to n do
if(i mod 2)=1 then
writeln('es impar',i);
end
else
end.