{* Число тысяч, десятков и единиц *}

Unit BEGIN_013;
Interface
Implementation
Begin
 writeln('Число тысяч, десятков и единиц в четырехзначном числе ');
End.

Program begin_13;

Uses begin_013.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  a : integer;
  b : integer;
  c : integer;
  d : integer;
  x : integer;
Begin
  ClrScr; {* Очищаем экран *}
  Writeln('введите четырехзначное число');
  Readln(x);
  a := x Div 1000;
  b := (x Div 100) Mod  10;
  c := (x Mod 100) Div 10;
  d := x Mod 10;
  writeln(a, ' тысяч ', b, ' сотен', c, ' десятков', d, ' единиц');
  Readln; {* Ждем подтверждения пользователя *}
End.