Целое четырехзначное число заменить числом, получающимся при записи его цифр в обратном порядке.
readln(a);
write(a mod 10, (a div 10) mod 10, (a div 100) mod 10, a div 1000);