Ответ:

program z1;

var a,b:integer;

begin

write('Введите четырёхзначное число: ');

readln(a);

b := a mod 10 * 10000000 + a mod 100 div 10 * 1000000 + a div 100 mod 10 * 100000 + a div 1000 * 10000 + a;

write('Получилось: ',b)

end.

Объяснение:

a div 1000 - первая цифра четырёхзначного числа

a div 100 mod 10 - вторая цифра четырёхзначного числа

a mod 100 div 10 - третья цифра четырёхзначного числа

a mod 10 - четвёртая (последняя) цифра четырёхзначного числа

Умножение переводит цифру в нужный разряд