тест

var  a, b, a1, a2: integer;
begin
  Write('введите a= ');
  Readln(a);
  a1 := a mod 10; {Выделение последней цифры}
    a2 := a div 10; {Выделение первой цифры}
  b := a1 * 10 + a2;
  Write('результат = ', b);
end.