Задано четырехзначное натуральное число…

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.