{* Задача 138 *}

Unit ZADACH138;
Interface
Implementation
Begin
 writeln('Ввод '352', вывод-'три пять два'');
End.

Program pas13600;

Uses zadach138.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  a : String;
  c : String;
  i : integer;
  j : integer;
  b : Array[1..10] Of String;
Begin
  clrscr; {* Стираем всё с экрана *}
  a := '0123456789';
  b[1] := 'нуль';
  b[2] := 'один';
  b[3] := 'два';
  b[4] := 'три';
  b[5] := 'четыре';
  b[6] := 'пять';
  b[7] := 'шесть';
  b[8] := 'семь';
  b[9] := 'восемь';
  b[10] := 'девять';
  write('Введите число:');
  readln(c);
  For i := 1 To length(c) Do {* Цикл для i => [1 .. length(c)] *}
    For j := 1 To 10 Do {* Переменная j увеличивается с 1 до 10 *}
      If c[i] = a[j] Then
        write(b[j], ' ');
  readln; {* Ждем нажатия Enter *}
End.