Написать программу, которая для каждой введенной цифры (0 – 9) выводит соответствующее ей название на английском языке (0 – zero, 1– one, 2 – two и т.д.) — Pascal(Паскаль)

uses crt;

var
  n: byte;

begin
  clrscr;
  writeln('Введите цифру');
  readln(n);
  case n of
    0:
      writeln('zero');
    1:
      writeln('one');
    2:
      writeln('two');
    3:
      writeln('three');
    4:
      writeln('four');
    5:
      writeln('five');
    6:
      writeln('six');
    7:
      writeln('seven');
    8:
      writeln('eight');
    9:
      writeln('nine');
  else
    writeln('net takoi cifri tolka 0-9')

  end;

end.