program var1; program var2;
var var
a, a,
b, b,
c : integer; c : integer;
procedure p1( a : integer; procedure p1(var b : integer );
var b : integer ); var
var a : integer; ¦ a ¦ b ¦ c ¦
c : integer; ¦ a ¦ b ¦ c ¦ begin ------+---+---+---+
begin ------+---+---+---+ a:=11; ------+---+---+---+
a:=11; ------+---+---+---+ b:=12; ------+---+---+---+
b:=12; ------+---+---+---+ c:=a+b; ------+---+---+---+
c:=a+b; ------+---+---+---+ end; { p1 }
end; { p1 }
procedure p2( a : integer;
procedure p2; var b : integer );
var var
c : integer; ¦ a ¦ b ¦ c ¦ c : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+---+---+ begin ------+---+---+---+
a:=21; ------+---+---+---+ a:=21; ------+---+---+---+
b:=22; ------+---+---+---+ b:=22; ------+---+---+---+
c:=a+b; ------+---+---+---+ c:=a+b; ------+---+---+---+
end; { p2 } end; { p2 }
procedure p3(var b : integer ); procedure p3;
¦ a ¦ b ¦ c ¦ var
begin ------+---+---+---+ c : integer; ¦ a ¦ b ¦ c ¦
a:=31; ------+---+---+---+ begin ------+---+---+---+
b:=32; ------+---+---+---+ a:=31; ------+---+---+---+
c:=a+b; ------+---+---+---+ b:=32; ------+---+---+---+
end; { p3 } c:=a+b; ------+---+---+---+
end; { p3 }
procedure p4(var b : integer );
procedure p4(var b : integer );
var ¦ a ¦ b ¦ c ¦
a : integer; ¦ a ¦ b ¦ c ¦ begin ------+---+---+---+
begin ------+---+---+---+ a:=41; ------+---+---+---+
a:=41; ------+---+---+---+ b:=42; ------+---+---+---+
b:=42; ------+---+---+---+ c:=a+b; ------+---+---+---+
c:=a+b; ------+---+---+---+ end; { p4 }
end; { p4 } ¦ a ¦ b ¦ c ¦
¦ a ¦ b ¦ c ¦ begin ------+---+---+---+
begin ------+---+---+---+ a:=4; ------+---+---+---+
a:=1; ------+---+---+---+ b:=5; ------+---+---+---+
b:=2; ------+---+---+---+ c:=6; ------+---+---+---+
c:=3; ------+---+---+---+ p1(a); ------+---+---+---+
p1(a,c); ------+---+---+---+ p2(a,c); ------+---+---+---+
p2; ------+---+---+---+ p3; ------+---+---+---+
p3(a); ------+---+---+---+ p4(a) ------+---+---+---+
p4(a) ------+---+---+---+ end. { var2 }
end. { var1 }
program var3; program var4;
var var
a, u,
b, v,
c : integer; w : integer;
procedure p1; procedure p1(var v : integer );
var var
c : integer; ¦ a ¦ b ¦ c ¦ u : integer; ¦ u ¦ v ¦ w ¦
begin ------+---+---+---+ begin ------+---+---+---+
a:=11; ------+---+---+---+ u:=11; ------+---+---+---+
b:=12; ------+---+---+---+ v:=12; ------+---+---+---+
c:=a+b; ------+---+---+---+ w:=u+v; ------+---+---+---+
end; { p1 } end; { p1 }
procedure p2(var b : integer ); procedure p2( u : integer;
var var v : integer );
a : integer; ¦ a ¦ b ¦ c ¦ var
begin ------+---+---+---+ w : integer; ¦ u ¦ v ¦ w ¦
a:=21; ------+---+---+---+ begin ------+---+---+---+
b:=22; ------+---+---+---+ u:=21; ------+---+---+---+
c:=a+b; ------+---+---+---+ v:=22; ------+---+---+---+
end; { p2 } w:=u+v; ------+---+---+---+
end; { p2 }
procedure p3(var b : integer );
¦ a ¦ b ¦ c ¦ procedure p3;
begin ------+---+---+---+ var
a:=31; ------+---+---+---+ w : integer; ¦ u ¦ v ¦ w ¦
b:=32; ------+---+---+---+ begin ------+---+---+---+
c:=a+b; ------+---+---+---+ u:=31; ------+---+---+---+
end; { p3 } v:=32; ------+---+---+---+
w:=u+v; ------+---+---+---+
procedure p4( a : integer; end; { p3 }
var b : integer );
var procedure p4(var v : integer );
c : integer; ¦ a ¦ b ¦ c ¦ ¦ u ¦ v ¦ w ¦
begin ------+---+---+---+ begin ------+---+---+---+
a:=41; ------+---+---+---+ u:=41; ------+---+---+---+
b:=42; ------+---+---+---+ v:=42; ------+---+---+---+
c:=a+b; ------+---+---+---+ w:=u+v; ------+---+---+---+
end; { p4 } end; { p4 }
¦ a ¦ b ¦ c ¦ ¦ u ¦ v ¦ w ¦
begin ------+---+---+---+ begin ------+---+---+---+
a:=3; ------+---+---+---+ u:=4; ------+---+---+---+
b:=4; ------+---+---+---+ v:=5; ------+---+---+---+
c:=5; ------+---+---+---+ w:=6; ------+---+---+---+
p1; ------+---+---+---+ p1(u); ------+---+---+---+
p2(a); ------+---+---+---+ p2(u,w); ------+---+---+---+
p3(a); ------+---+---+---+ p3; ------+---+---+---+
p4(a,c) ------+---+---+---+ p4(u) ------+---+---+---+
end. { var3 } end. { var4 }
program var5; program var6;
var var
x, p,
y, q,
z : integer; r : integer;
procedure p1; procedure p1( p : integer;
var var q : integer);
z : integer; ¦ x ¦ y ¦ z ¦ var
begin ------+---+---+---+ r : integer; ¦ p ¦ q ¦ r ¦
x:=11; ------+---+---+---+ begin ------+---+---+---+
y:=12; ------+---+---+---+ p:=11; ------+---+---+---+
z:=x+y; ------+---+---+---+ q:=12; ------+---+---+---+
end; { p1 } r:=p+q; ------+---+---+---+
end; { p1 }
procedure p2(var y : integer );
var procedure p2;
x : integer; ¦ x ¦ y ¦ z ¦ var
begin ------+---+---+---+ r : integer; ¦ p ¦ q ¦ r ¦
x:=21; ------+---+---+---+ begin ------+---+---+---+
y:=22; ------+---+---+---+ p:=21; ------+---+---+---+
z:=x+y; ------+---+---+---+ q:=22; ------+---+---+---+
end; { p2 } r:=p+q; ------+---+---+---+
end; { p2 }
procedure p3(var y : integer );
¦ x ¦ y ¦ z ¦ procedure p3(var q : integer );
begin ------+---+---+---+ ¦ p ¦ q ¦ r ¦
x:=31; ------+---+---+---+ begin ------+---+---+---+
y:=32; ------+---+---+---+ p:=31; ------+---+---+---+
z:=a+b; ------+---+---+---+ q:=32; ------+---+---+---+
end; { p3 } r:=p+q; ------+---+---+---+
end; { p3 }
procedure p4( x : integer;
var y : integer ); procedure p4(var q : integer );
var
z : integer; ¦ x ¦ y ¦ z ¦ var
begin ------+---+---+---+ p : integer; ¦ p ¦ q ¦ r ¦
x:=41; ------+---+---+---+ begin ------+---+---+---+
y:=42; ------+---+---+---+ p:=41; ------+---+---+---+
z:=x+y; ------+---+---+---+ q:=42; ------+---+---+---+
end; { p4 } r:=p+q; ------+---+---+---+
¦ x ¦ y ¦ z ¦ end; { p4 }
begin ------+---+---+---+ ¦ p ¦ q ¦ r ¦
x:=3; ------+---+---+---+ begin ------+---+---+---+
y:=4; ------+---+---+---+ p:=1; ------+---+---+---+
z:=5; ------+---+---+---+ q:=2; ------+---+---+---+
p1; ------+---+---+---+ r:=3; ------+---+---+---+
p2(x); ------+---+---+---+ p1(p,r); ------+---+---+---+
p3(x); ------+---+---+---+ p2; ------+---+---+---+
p4(x,z) ------+---+---+---+ p3(p); ------+---+---+---+
end. { var5 } p4(p) ------+---+---+---+
end. { var6 }
program var7; program var8;
var var
a, a,
b, b,
c : integer; c : integer;
procedure p1( a : integer; procedure p1(var b : integer );
Var b : integer ); var
Var a : integer; ¦ a ¦ b ¦ c ¦
c : integer; ¦ a ¦ b ¦ c ¦ begin ------+---+---+---+
begin ------+---+---+---+ a:=11; ------+---+---+---+
a:=11; ------+---+---+---+ b:=12; ------+---+---+---+
b:=12; ------+---+---+---+ c:=a+b; ------+---+---+---+
c:=a+b; ------+---+---+---+ end; { p1 }
end; { p1 }
procedure p2( a : integer;
procedure p2; var b : integer );
var var
c : integer; ¦ a ¦ b ¦ c ¦ c : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+---+---+ begin ------+---+---+---+
a:=21; ------+---+---+---+ a:=21; ------+---+---+---+
b:=22; ------+---+---+---+ b:=22; ------+---+---+---+
c:=a+b; ------+---+---+---+ c:=a+b; ------+---+---+---+
end; { p2 } end; { p2 }
procedure p3(var b : integer ); procedure p3;
¦ a ¦ b ¦ c ¦ var
begin ------+---+---+---+ c : integer; ¦ a ¦ b ¦ c ¦
a:=31; ------+---+---+---+ begin ------+---+---+---+
b:=32; ------+---+---+---+ a:=31; ------+---+---+---+
c:=a+b; ------+---+---+---+ b:=32; ------+---+---+---+
end; { p3 } c:=a+b; ------+---+---+---+
end; { p3 }
procedure p4(var b : integer );
procedure p4(var b : integer );
var ¦ a ¦ b ¦ c ¦
a : integer; ¦ a ¦ b ¦ c ¦ begin ------+---+---+---+
begin ------+---+---+---+ a:=41; ------+---+---+---+
a:=41; ------+---+---+---+ b:=42; ------+---+---+---+
b:=42; ------+---+---+---+ c:=a+b; ------+---+---+---+
c:=a+b; ------+---+---+---+ end; { p4 }
end; { p4 }
¦ a ¦ b ¦ c ¦
¦ a ¦ b ¦ c ¦ begin ------+---+---+---+
begin ------+---+---+---+ a:=4; ------+---+---+---+
a:=1; ------+---+---+---+ b:=5; ------+---+---+---+
b:=2; ------+---+---+---+ c:=6; ------+---+---+---+
c:=3; ------+---+---+---+ p1(a); ------+---+---+---+
p1(a,c); ------+---+---+---+ p2(a,c); ------+---+---+---+
p2; ------+---+---+---+ p3; ------+---+---+---+
p3(a); ------+---+---+---+ p4(a) ------+---+---+---+
p4(a) ------+---+---+---+ end. { var8 }
end. { var7 }
program var9; program var10;
var var
a, a,
b, b,
c : integer; c : integer;
procedure p1( a : integer; procedure p1(var b : integer );
Var b : integer ); var
Var a : integer; ¦ a ¦ b ¦ c ¦
c : integer; ¦ a ¦ b ¦ c ¦ begin ------+---+---+---+
begin ------+---+---+---+ a:=21; ------+---+---+---+
a:=21; ------+---+---+---+ b:=22; ------+---+---+---+
b:=22; ------+---+---+---+ c:=a+b; ------+---+---+---+
c:=a+b; ------+---+---+---+ end; { p1 }
end; { p1 }
procedure p2( a : integer;
procedure p2; var b : integer );
var var
c : integer; ¦ a ¦ b ¦ c ¦ c : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+---+---+ begin ------+---+---+---+
a:=11; ------+---+---+---+ a:=11; ------+---+---+---+
b:=12; ------+---+---+---+ b:=12; ------+---+---+---+
c:=a+b; ------+---+---+---+ c:=a+b; ------+---+---+---+
end; { p2 } end; { p2 }
procedure p3(var b : integer ); procedure p3;
¦ a ¦ b ¦ c ¦ var
begin ------+---+---+---+ c : integer; ¦ a ¦ b ¦ c ¦
a:=31; ------+---+---+---+ begin ------+---+---+---+
b:=32; ------+---+---+---+ a:=31; ------+---+---+---+
c:=a+b; ------+---+---+---+ b:=32; ------+---+---+---+
end; { p3 } c:=a+b; ------+---+---+---+
end; { p3 }
procedure p4(var b : integer );
procedure p4(var b : integer );
var ¦ a ¦ b ¦ c ¦
a : integer; ¦ a ¦ b ¦ c ¦ begin ------+---+---+---+
begin ------+---+---+---+ a:=41; ------+---+---+---+
a:=41; ------+---+---+---+ b:=42; ------+---+---+---+
b:=42; ------+---+---+---+ c:=a+b; ------+---+---+---+
c:=a+b; ------+---+---+---+ end; { p4 }
end; { p4 } ¦ a ¦ b ¦ c ¦
¦ a ¦ b ¦ c ¦ begin ------+---+---+---+
begin ------+---+---+---+ a:=4; ------+---+---+---+
a:=1; ------+---+---+---+ b:=5; ------+---+---+---+
b:=2; ------+---+---+---+ c:=6; ------+---+---+---+
c:=3; ------+---+---+---+ p1(a); ------+---+---+---+
p1(a,c); ------+---+---+---+ p2(a,c); ------+---+---+---+
p2; ------+---+---+---+ p3; ------+---+---+---+
p3(a); ------+---+---+---+ p4(a) ------+---+---+---+
p4(a) ------+---+---+---+ end. { var10 }
end. { var9 }
program var11; program var12;
var var
a, u,
b, v,
c : integer; w : integer;
procedure p1; procedure p1(var v : integer );
var var
c : integer; ¦ a ¦ b ¦ c ¦ u : integer; ¦ u ¦ v ¦ w ¦
begin ------+---+---+---+ begin ------+---+---+---+
a:=21; ------+---+---+---+ u:=21; ------+---+---+---+
b:=22; ------+---+---+---+ v:=22; ------+---+---+---+
c:=a+b; ------+---+---+---+ w:=u+v; ------+---+---+---+
end; { p1 } end; { p1 }
procedure p2(var b : integer ); procedure p2( u : integer;
var var v : integer );
a : integer; ¦ a ¦ b ¦ c ¦ var
begin ------+---+---+---+ w : integer; ¦ u ¦ v ¦ w ¦
a:=11; ------+---+---+---+ begin ------+---+---+---+
b:=12; ------+---+---+---+ u:=11; ------+---+---+---+
c:=a+b; ------+---+---+---+ v:=12; ------+---+---+---+
end; { p2 } w:=u+v; ------+---+---+---+
end; { p2 }
procedure p3(var b : integer );
¦ a ¦ b ¦ c ¦ procedure p3;
begin ------+---+---+---+ var
a:=31; ------+---+---+---+ w : integer; ¦ u ¦ v ¦ w ¦
b:=32; ------+---+---+---+ begin ------+---+---+---+
c:=a+b; ------+---+---+---+ u:=31; ------+---+---+---+
end; { p3 } v:=32; ------+---+---+---+
w:=u+v; ------+---+---+---+
procedure p4( a : integer; end; { p3 }
var b : integer );
var procedure p4(var v : integer );
c : integer; ¦ a ¦ b ¦ c ¦ ¦ u ¦ v ¦ w ¦
begin ------+---+---+---+ begin ------+---+---+---+
a:=41; ------+---+---+---+ u:=41; ------+---+---+---+
b:=42; ------+---+---+---+ v:=42; ------+---+---+---+
c:=a+b; ------+---+---+---+ w:=u+v; ------+---+---+---+
end; { p4 } end; { p4 }
¦ a ¦ b ¦ c ¦ ¦ u ¦ v ¦ w ¦
begin ------+---+---+---+ begin ------+---+---+---+
a:=3; ------+---+---+---+ u:=4; ------+---+---+---+
b:=4; ------+---+---+---+ v:=5; ------+---+---+---+
c:=5; ------+---+---+---+ w:=6; ------+---+---+---+
p1; ------+---+---+---+ p1(u); ------+---+---+---+
p2(a); ------+---+---+---+ p2(u,w); ------+---+---+---+
p3(a); ------+---+---+---+ p3; ------+---+---+---+
p4(a,c) ------+---+---+---+ p4(u) ------+---+---+---+
end. { var11 } end. { var12 }
program var13; program var14;
var var
x, p,
y, q,
z : integer; r : integer;
procedure p1; procedure p1( p : integer;
var var q : integer );
z : integer; ¦ x ¦ y ¦ z ¦ var
begin ------+---+---+---+ r : integer; ¦ p ¦ q ¦ r ¦
x:=21; ------+---+---+---+ begin ------+---+---+---+
y:=22; ------+---+---+---+ p:=21; ------+---+---+---+
z:=x+y; ------+---+---+---+ q:=22; ------+---+---+---+
end; { p1 } r:=p+q; ------+---+---+---+
end; { p1 }
procedure p2(var y : integer );
var procedure p2;
x : integer; ¦ x ¦ y ¦ z ¦ var
begin ------+---+---+---+ r : integer; ¦ p ¦ q ¦ r ¦
x:=11; ------+---+---+---+ begin ------+---+---+---+
y:=12; ------+---+---+---+ p:=11; ------+---+---+---+
z:=x+y; ------+---+---+---+ q:=12; ------+---+---+---+
end; { p2 } r:=p+q; ------+---+---+---+
end; { p2 }
procedure p3(var y : integer );
¦ x ¦ y ¦ z ¦ procedure p3(var q : integer );
begin ------+---+---+---+ ¦ p ¦ q ¦ r ¦
x:=31; ------+---+---+---+ begin ------+---+---+---+
y:=32; ------+---+---+---+ p:=31; ------+---+---+---+
z:=x+y; ------+---+---+---+ q:=32; ------+---+---+---+
end; { p3 } r:=p+q; ------+---+---+---+
end; { p3 }
procedure p4( x : integer;
var y : integer ); procedure p4(var q : integer );
var
z : integer; ¦ x ¦ y ¦ z ¦ var
begin ------+---+---+---+ p : integer; ¦ p ¦ q ¦ r ¦
x:=41; ------+---+---+---+ begin ------+---+---+---+
y:=42; ------+---+---+---+ p:=41; ------+---+---+---+
z:=x+y; ------+---+---+---+ q:=42; ------+---+---+---+
end; { p4 } r:=p+q; ------+---+---+---+
¦ x ¦ y ¦ z ¦ end; { p4 }
begin ------+---+---+---+ ¦ p ¦ q ¦ r ¦
x:=3; ------+---+---+---+ begin ------+---+---+---+
y:=4; ------+---+---+---+ p:=1; ------+---+---+---+
z:=5; ------+---+---+---+ q:=2; ------+---+---+---+
p1; ------+---+---+---+ r:=3; ------+---+---+---+
p2(x); ------+---+---+---+ p1(p,r); ------+---+---+---+
p3(x); ------+---+---+---+ p2; ------+---+---+---+
p4(x,z) ------+---+---+---+ p3(p); ------+---+---+---+
end. { var13 } p4(p) ------+---+---+---+
end. { var14 }
program var15; program var16;
var var
a, a,
b, b,
c : integer; c : integer;
procedure p1( a : integer; procedure p1(var b : integer );