CONST
 Month:ARRAY[1..12] of STRING=('January',
                               'February',
                               'March',
                               'April',
                               'May',
                               'June',
                               'July',
                               'August',
                               'September',
                               'October',
                               'November',
                               'December');
Var
 n:BYTE;
Begin
 Write('Enter the number of month ');
 ReadLn(n);
 WriteLn(Month[n]);
 ReadLn;
End.