Ввод ' 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.