C#:
for (int i = n; i >= 1; i--)
{
Console.WriteLine(i + ",");
}
pascal, еле перевел..
uses crt;
var num, conv, i : integer;
beginwrite('Введите четырехзначное число : ');
readln(num);
conv := 0;
while (num >0) do
begin
i := num mod 10 ;
conv := conv*10 + i ;
num := num div 10;
end;
writeln('Число задом наперед :D: ', conv);
readln;
end.