PROGRAM passer(input, output);
VAR
a, b: integer;
PROCEDURE fred(VAR b: integer);
BEGIN
a := a + b;
b := 4;
END;
PROCEDURE barney(c: integer);
VAR
a: integer;
PROCEDURE sigfreid;
BEGIN
fred(a);
END;
BEGIN
a := c;
sigfreid;
writeln(a, ' ', b, ' ', c);
END;
BEGIN
a := 2;
b := 7;
barney(3);
writeln(a, ' ', b);
END.