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

program zz1;

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

begin

write( введите естественное число от 1 до 10 );

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

case n of

1:write( один );

2:write( два );

3:write( три );

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

5:write( 5 );

6:write( 6 );

7:write( семь );

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

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

10:write( 10 );

end;

end.