Смотри, тут всё просто: нужно разделить число на цифры и вывести их в обратном порядке.
В Pascal это можно сделать так:
program ReverseDigits; var num, digit1, digit2, digit3, digit4: integer; begin readln(num); digit1 := num div 1000; digit2 := (num div 100) mod 10; digit3 := (num div 10) mod 10; digit4 := num mod 10; writeln(digit4, digit3, digit2, digit1); end.
Вводишь четырехзначное число, программа вычисляет каждую цифру и выводит их в обратном порядке.