mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 17:48:01 +02:00
12 lines
208 B
ObjectPascal
12 lines
208 B
ObjectPascal
{$mode delphi}
|
|
{$J-}
|
|
|
|
const
|
|
RFCMonthNames : Array[1..12] of String = (
|
|
'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
|
|
'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
|
|
|
|
begin
|
|
writeln(RFCMonthNames[10]);
|
|
end.
|