
Captulo 19 - constantes estruturadas

  Podemos usar matrizes como constantes, fazendo assim, um melhor uso l-
gico destas constantes, como no exemplo:
PROGRAM teste_const_array;
CONST
  mes = ARRAY[1..12] OF STRING[9] = 
(janeir, fevereir, mar,
abril, mai junh
julh, agost, setembr
outubr, novembr, dezembr);
VAR
  meses : BYTE;
BEGIN
  WRITE (entre com um mes entre 1 e 12);
  READLN (meses);
  WRITE (este mes por extenso  , mes [meses]);
  READLN;
END.
