source: doc/theses/jiada_liang_MMath/test.pas@ d7cb0f7

program test(Output);
const Three = 2 + 1;   NULL = NIL;   PI = 3.14159;   Plus = '+';   Fred = 'Fred';
type Week = ( Mon, Tue, Wed, Thu, Fri, Sat, Sun );
        Weekday = Mon..Fri;
        Weekend = Sat..Sun;
type Count = ( Zero, One, Two, Ten = 10, Eleven );
var day   : Week;
        wday  : Weekday;
        wend  : Weekend;
        lunch : array[Week] of Integer;
        cnt       :  Count;
begin
        day := Sat;
        wday := day; // invalid but allowed
        wend := day; // valid
        day := Mon;
        wday := day; // valid
        wend := day; // invalid but allowed
        day := wday; // valid
        day := wend; // valid
        if day = wday then
                Writeln( day );
        if day <= Fri then
                Writeln( 'weekday');
        case day of
          Mon..Fri :
                Writeln( 'weekday');
          Sat..Sun :
                Writeln( 'weekend')
        end;
        day := Mon;
        while day <= Sat do begin
                Write( day, ' ' );
                day := succ( day );
        end;
        Writeln();
        for day := Mon to Sat do begin
                Write( day, ' ' );
        end;
        Writeln();
        for day := Mon to Sat do
                Write( lunch[day], ' ' );
        Writeln();
        for cnt := Zero to Eleven do begin
                Write( ord( cnt ), ' ' );
        end;
        Writeln();
end.

{ Local Variables: }
{ tab-width: 4 }
{ pascal-indent-level: 4 }
{ compile-command: "fpc test.pas" }
{ End: }