ДЛЯ ЧЕТЫРЕХЗНАЧНЫХ ЧИСЕЛ:

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.