По заданному числу k (от 0 до 10) вывести его название.например при k=2 вывести на экран < > , при k=3 вывести на экран < > и т.д

Pascal

var
    a : integer;
begin
 readln (a);
  case a of
    1 : writeln ('Один');
    2 : writeln ('Два');
    3 : writeln ('Три');
    4 : writeln ('Четыре');
    5 : writeln ('Пять');
    6 : writeln ('Шесть');
    7 : writeln ('Семь');
    8 : writeln ('Восемь');
    9 : writeln ('Девять');
   10 : writeln ('Десять');
  end;
end.