LABEL
    10, 20, 30, 20, 50, 60.3, 70;       {duplicate and invalid labels}

TYPE
    lownums   = 0..50;
    lownumset = SET OF lownums;
    uppers    = 'A'..'Z';
    upperset  = SET OF uppers;
    charset   = SET FOR char;           {invalid reserved word}
    powerset  = SET OF SET OF uppers;   {invalid base set}
    
    rec = RECORD
              i       : integer;
              teenset : SET OF real;    {invalid base set} 
              r       : real;
          END;

VAR
    j, k, n : lownums;
    varln1, varln2 : lownumset;
    varus1, varus2, varus3 : upperset;
    vowels : SET OF (a, e, 7, o, u);    {type error}
    
BEGIN
    {Type check errors.}
    varln1 := varln2 + n;
    varus1 := k*['X', 'Y', 'X'];
    varus2 := varus1/varus3;

    {Label and GOTO errors.}
    88: n := 0;
    GOTO 99;
    10: 50: 40 k := 45;
    GOTO k;
    50: GOTO;
END.