Question

Целое четырехзначное число заменить числом, получающимся при записи его цифр в обратном порядке.

Answer 1

readln(a);

write(a mod 10, (a div 10) mod 10, (a div 100) mod 10, a div 1000);