Repita For

program ordenamiento;
uses wincrt;
var
op,k,n:integer;
begin
writeln('***Menu***');
writeln('');
writeln('1-Ordenar numeros de manera Ascendente');
writeln('2-Ordenar numeros de manera Desendente');
readln(op);

if op=1 then
begin
 writeln('****Ordenar numeros de manera Ascendente****');
writeln('¿Cuantas Veces Quiere que se repita de manera Ascendente?');
readln(n);
writeln('');
for k:=1 to 10  do
writeln(k);


end

 else


if op=2 then
begin
writeln('****Ordenar numeros de manera Desendente****');
writeln('¿Cuantas Veces Quiere que se repita de manera Desendente?');
readln(n);
writeln('');
for k:=n downto 1  do
writeln(k);
end;
end.