procedures.pas
PROGRAM procedures;
// define procedure (sub-routine)
procedure procedureA;
VAR
// variables are local
i: integer = 0;
BEGIN
WRITELN('i: ', i);
i += 1;
END;
// end procedure
BEGIN
procedureA; // i: 0
procedureA; // i: 0
END.