По заданному числу 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.