program VisibleDemo;

uses
 Forms;

var
 A: Integer;

procedure Outer; { Procedura zewntrzna }
var
 B: Integer;

 procedure Inner; { Procedura wewntrzna }
 var
  C: Integer;
 begin { Inner }
  C := 3;
  B := 8;  { zmienna B procedury Outer }
  A := 4;  { to jest globalna zmienna A }
 end; { Inner }

begin { Outer }
 B := 5;
 C := 5; { BD! Zmienna C widziana jest tylko w procedurze Inner }
 A := 9; { globalna zmienna A }
end; { Outer }

procedure AnotherOne;
var
 D: Integer;
begin { AnotherOne }
 D := 9;
 A := 55; { zmienna globalna A }
 B := 4;  { BD! }
 C := 5;  { BD! }
end; { AnotherOne }


begin
 A := 1;

 Readln;
end.