Дано натуральное число n, переставить местами первую и последнию цифру местами.

program mest;
var a, b, c, d : integer;
begin
readln(a);
c:=a mod 10;
d:=a div 10;
b:=c*10 + d;
writeln(b)
end.

uses crt;
var N,M,k,cn,b,c1:longint;
begin
clrscr;
write('N=');readln(N);
cn:=N mod 10; {последняя цифра}
while N>0 do
  begin
   c1:=N mod 10; {первая цифра}
   N:=N div 10; {число без последней цифры}
  end;
write('Summa 1+posl cifr=',cn+c1);
readln
end.

uses crt;
var N,M,k,cn,b,c1:longint;
begin
clrscr;
write('N=');readln(N);
cn:=N mod 10; {последняя цифра}
M:=N; {запоминаем число}
k:=1;
while N>0 do
  begin
   c1:=N mod 10; {первая цифра}
   k:=k*10;    {степень 1-й цифры*10}
   N:=N div 10; {число без последней цифры}
  end;
N:=M-c1*(k div 10)+cn*(k div 10)-cn+c1;
{из числа вычитаем первую цифру со всеми нолями,
прибавляем последнюю цифру с таким же количеством нолей,
вычитаем последнюю цифру и прибавляем первую, например 1234-1000+4000-4+1=4231}
write('Nper=',N);
readln
end.