Program PascalGuru;
var a,b,c,x,y,z:integer;    {описание переменных}
 
{-------------------------------------}
function Pow(x,y:integer):longint; {функция возводит число x в степень y }
var i,s:integer;
begin
s:=1;
for i:=1 to y do
S:=s*x;
pow:=s;
end;
{-------------------------------------}
 
begin
write('Введите число А: ');
readln(a); {считывание с клавиатуры числа А}
if a<10 then {введённое число не должно быть меньше 10}
   begin
    writeln ('Ошибка '); {если меньше - то оповещаем об ошибке}
   end
   Else  {если ошибки НЕТ - идёт обработка ниже}
    begin {ниже обработка по изменению 1 и последней цифры}
     y:=a mod 10;
     x:=a;
     b:=0;
      repeat
       x:=x div 10;
       b:=b+1;
      until x div 10=0;
     c:=a-x*pow (10,b)+y*pow (10,b)-y+x;
     writeln (c); {вывод преобразованного числа на экран}
    end;
 
readln;
end.