3.3(2)

uses
crt;

var
n, m, c1, cp, n2: longint;
k, i: byte;

begin
clrscr;
write('n=');readln(n);{например 12345}
n2 := abs(n);
cp := n2 mod 10;{последняя цифра=5}
n2 := n2 div 10;{число без последней цифры=1234}
m := n2;{запомним его}
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;
n2 := (n2 - m) * 10 + c1 + cp * 10;{получаем число=(1234-1000)*10+1+5000*10=52341}
if n < 0 then n2 := -n2;
writeln('n2=', n2);
readln
end.