PROGRAM MaxInt1;
    VAR
        A, B, C: Integer;
BEGIN
    WriteLn('SizeOf(Integer)=', SizeOf(Integer));   { SizeOf() is not in       }
                                                    { wirth Pascal             }
    WriteLn('MaxInt=', MaxInt);

    A := MaxInt;
    B := 10;

    C := A + B;             { will produce wrong result }
                            { Abs(A + B) > MaxInt       }
    Writeln(A, '+', B, '=', C);
END.