Используя оператор выбора решить в паскаль: для каждой введённой цифры (0-9) вывести соответствующие ей название на языке (0 – zero, 1 – one, 2 – two, 3 – three, 4 – four, 5 – five, 6 – six, 7 – seven, 8 – eight, 9 – nine)

Read ( Digit );
case Digit 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;
end.