Pascal/Turbo Pascal - numero descendentes

necesito el algoritmo de pascal de que un introduzca un numero y los muestre en pantalla de forma descendente y ascendente por favor un querido amigo que me ayuda que estoy con esa duda los quiere su amiga Karla

A ver... este... ¿Lo que vos decís es que dado un número el programa imprima en pantalla todos los descendentes hasta el 0 y desde el 0 ascendente hasta el número? ¿O que pongan muchos números y el programa los mueste ordenados?

Para la primera pregunta:

var Numero:integer;
Ind:integer;
begin
for Ind:= Numero downto 0 do writeln(Ind);
for Ind:= 0 to Numero do writeln(Ind);
end;

Para la segunda la cosa ya es más larga... cualquier cosa, preguntá.

bbbabbbbbaabbbaaabbbabbabaa XDDD viujjjjjjj XD la baba