Задано четырехзначное натуральное число X. Получить из него число,записанное теми же цифрами ,но в обратном порядке,а так же сумму исходного и полученного числа.

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.