PROGRAM ScalarRef;

VAR i : integer;

PROCEDURE proc1(parm1 : integer);

    BEGIN
        parm1 := 222;
        writeln('In proc1: parm1 = ', parm1);
    END;

PROCEDURE proc2(VAR parm2 : integer);

    BEGIN
        parm2 := 222;
        writeln('In proc2: parm2 = ', parm2);
        writeln('In proc2:     i = ', i);
    END;
    
BEGIN
    i := 111;
    writeln('In main before call to proc1: i = ', i);
    writeln;
    
    proc1(i);
    writeln('In main after call to proc1: i = ', i);
    writeln;

    proc2(i);
    writeln('In main after call to proc2: i = ', i);
END.