Использование структуры case ... of для преобразования введенного целого числа из диапазона (0..4) в его словесное представление

Program Digit2;
  var Num: integer;
begin
  write('Введите число:');
  readln(Num);
  case Num of
    0: writeln('Нуль');
    1: writeln('Один');
    2: writeln('Два ');
    3: writeln('Три ');
    4: writeln('Четыре')
    else writeln('Введено другое число')
  end;
  readln
end.