{* Перестановка цифр *}

Unit PEREST1;
Interface
Implementation
Begin
 writeln('Перестановка первой и последней цифры в натуральном числе.');
End.

Program z1;

Uses perest1.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  a : longint;
  s : longint;
  i : integer;
  k : integer;
  p : integer;
  n : integer;
  b : Array[1..20] Of integer;
Begin
  clrscr; {* Очистка экрана *}
  writeln('ўў®¤ жЁдал');
  readln(a);
  n := 0;
  While a > 0 Do
  Begin
    k := a Mod 10;
    n := n + 1;
    b[n] := k;
    a := a Div 10;
  End;
  p := b[1];
  b[1] := b[n];
  b[n] := p;
  For i := n Downto 1 Do
    s := 10 * s + b[i];
  writeln(s);
  readkey; {* Ждем нажатия пользователя *}
End.