Я делаю эту...

Я делаю эту задачу: Вводится число от 1 до 10. Дать название этого числа (1 - один , 2 -
два , …, 10 - десять);
по аналогии с это:


var

n:byte;

Begin

writeln('Введите номер поры года');


readln(n);

case n of

1: writeln('зима');

2: writeln('весна');

3: writeln('лето');

4: writeln('осень');

else

writeln('неправильно ввели номер поры
года');

end;

End.


Если что можете посмотреть на этом сайте http://svgimnazia1.grodno.by/sinica/Book_ABC/Book_ABC_pascal/vetvl9.htm пример № 1 помогите по аналогии написать

 

Var 

n:byte;

Begin

writeln('Введите номер поры года');


readln(n);

case n of

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

2: writeln('два');

3: writeln('три');

4: writeln('четыре');
5:Дальше по аналогии сама)))
6:
7:
8:
9:
10:
else

writeln('некорректный символ');

end;

End.
Если я правильно понял что требуется.