gistfile1.txt

// Programa válido Sintáticamente
programa testeValido;

// Declaração de variáveis
inteiro quant;

real[5] probabilidades = @idQualquer;

cadeia[falso][@dimensao] texto;  //semânticamente inválido

cadeia[3][@quantPaises] paises;

booleano teste1, teste2 = verdadeiro;

caracter sexo = 'masculino';   //semânticamente inválido


// Declaração de métodos

metodo semParametrosSemTipo;  {} ;

metodo semParametrosComTipo : booleano;  {} ;

metodo comParametrosSemTipo(val num,den : real);  {} ;

metodo comParametrosComTipo(ref num,den : real) : inteiro;  {} ;

metodo com2ParametrosComTipo(val num : inteiro; ref den : real) : inteiro;  { retorne 1 } ;

metodo comDeclaracao; 
    inteiro qualquer = verdadeiro;
    {};

metodo comMetodoInterno;
    metodo interno; {};
    {};


/* Comandos */
{
    paises[1] := 'bra';
    { paises[2] := 'eua' };
    se (paises[2] = 'bra')
    entao paises[2] := 'eua';


    se (paises[5]<>'ing' ou (paises[4] < 3))
    entao se (paises[3])
               entao paises[3] := 'ing'
               senao paises[4] := 'ing';

    
     enquanto (paises < 20) 
     faca paises[n] := '---'  ;

    enquanto (paises>= 30)
        faca enquanto (paises <=50)
            faca paises[i] := '###';

     leia(@teste, nnn);

     escreva(nao nao paises, nao 5);

     retorne verdadeiro;

}
.