Ввод 352 , вывод - три пять два

var
  a: integer;

begin
  readln(a);
  foreach c: char in a.ToString() do
    case c of
      1: write(один );
      2: write(два );
      3: write(три );
      4: write(четыре );
      5: write(пять );
      6: write(шесть );
      7: write(семь );
      8: write(восемь );
      9: write(девять );
      0: write(ноль );
    end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.