program scope;
type S = record f,g: Boolean end;
var V: S;

procedure P(x: integer);
  const n=10;
  type T = array [1..n] of Integer;
  var y,z: t;

  procedure Q;
    begin read(X); v.g:=FALSE end;

  begin Y:=Z; q; p(5); write(x) end;

begin v.f:=true; P(5) end.
