Составить программу Pascal, которая вводит четырёхзначное число и выводит число-перевертыш (пример: 1234 - 4321)

Program n1;var a: integer;beginreadln(a);write(a mod 10, (a mod 100) div 10, (a div 100) mod 10,a div 1000); end.