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