program blockstr(output);
var
	a, b, c: integer;

procedure p(b: integer; var x: integer);
var c, d: integer;
begin
	a := 2;
	b := 2;
	c := 2;
	d := 2;
	x := 2;
	write('Inside p: a=', a:1, ', b=', b:1, ', c=', c:1);
	writeln(', d=', d:1, ', x=', x:1);
end;

{ Main Program: }
begin
	a := 1;
	b := 1;
	c := 1;
	writeln('Before p: a=', a:1, ', b=', b:1, ', c=', c:1);
	p(b, c);
	writeln('After  p: a=', a:1, ', b=', b:1, ', c=', c:1);
	{ Trying to access d or x here would give the error
	  "Unknown Identifier" }
end.