prim_9.PAS

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

Unit PRIM_9;
Interface
Implementation
Begin
 writeln('Ввести двузначное число a. Поменять цифры числа местами. ');
End.

Program prim_9;

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