Вводиться число от 1 до 10. Дать название этого числа (1-один, 2-два ...). Составить программу для решение задачи с использованием оператора case.

program zz1;

var n:integer; / / задаем переменную целого типа

begin

write (' введите натуральное число от 1 до 10 ');

read (n); / / вводим с клавиатуры число

case n of

1:write (' один ');

2:write (' два ');

3:write (' три ');

4:write (' четыре ');

5:write (' пять ');

6:write (' шесть ');

7:write (' семь ');

8:write (' восемь ');

9:write (' девять ');

10:write (' десять ');

end;

end.