ДЛЯ ЧЕТЫРЕХЗНАЧНЫХ ЧИСЕЛ:
var x: integer;
begin
writeln ('Введите четырехзначное число.');
read (x);
x:=x mod 10 * 1000 + x div 100 mod 10 * 100 + x div 10 mod 10 * 10 + x div 1000;
writeln ('Число после перестановки цифр:',x);
end.
ДЛЯ ЛЮБЫХ ЧИСЕЛ:
program znanija;
var n,m,c1,cp:integer;
k,i:byte;
begin
write('Введите число.');
readln(n);{например 12345}
cp:=n mod 10;{последняя цифра=5}
n:=n div 10;{число без последней цифры=1234}
m:=n;{запомним его}
k:=0;
while m>9 do{пока не останется 1 цифра}
begin
m:=m div 10;{первая цифра=1}
k:=k+1;{количество разрядов без первого=4}
end;
c1:=m;{запомним первую цифру=1}
for i:=1 to k do
begin
m:=m*10;{повышаем разряд числа, равного первой цифре=1000}
cp:=cp*10;{повышаем разряд последней цифры=5000}
end;
n:=(n-m)*10+c1+cp*10;{получаем число=(1234-1000)*10+1+5000*10=52341}
writeln('Число после перестановки цифр:',n);
end.