{* Смена крайних цифр числа местами *}

Unit PRIM_09;
Interface
Implementation
Begin
 writeln('Смена крайних цифр трехзначного числа местами');
End.

Program prim_9;

Uses prim_09.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : integer;
  b : integer;
  c : integer;
Begin
  Write('введите трехзначное число а ');
  Readln(a);
  b := a Div 100;
  c := (a Div 10) Mod 10;
  d := a Mod 10;
  a := c * 10 + b;
  Writeln(a);
  Readln
End.