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

Спасибо большое)

Pascalvar    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.