uses crt;

var
  n: string;
  i: integer;


begin
clrscr;
  write('Ââåäèòå ÷èñëî (÷èñëà): ');readln(n);
  for i := 1 to length(n) do
    case n[i] of
      '0': write('zero ');
      '1': write('one ');
      '2': write('two ');
      '3': write('three ');
      '4': write('four ');
      '5': write('five ');
      '6': write('six ');
      '7': write('seven ');
      '8': write('eight ');
      '9': write('nine ');
    end;
readkey; 
end.