Вопрос разработать на паскале

Подскажи, что кроме "ТОР" круче !?

ferum324 написал(а):

составить программу которая в зависимости от порядкового номера (1,..,12) месяца выводит на экран его название (январь,... декабрь)

Нажмите для раскрытия...

[THIDE="0"]var x:integer;
label loop;
begin
loop:
Writeln('Month №');
readln(x);
if (x>=1) and (x<=12) then
begin
case x of
1: writeln('January');
2: writeln('February');
3: writeln('March');
4: writeln('April');
5: writeln('May');
6: writeln('June');
7: writeln('July');
8: writeln('August');
9: writeln('September');
10: writeln('October');
11: writeln('November');
12: writeln('December');
end
end
else
begin
Writeln('Write valid number!');
goto loop;
end;
readln
end.[/THIDE]