49 lines
657 B
ObjectPascal
49 lines
657 B
ObjectPascal
program NestedTest;
|
|
var g:integer;
|
|
|
|
procedure first;
|
|
var f:integer;
|
|
|
|
procedure second;
|
|
var s:integer;
|
|
|
|
procedure third1;
|
|
var t1:integer;
|
|
begin
|
|
t1 := 310;
|
|
s := 31;
|
|
writeln('t1:', t1);
|
|
end;
|
|
|
|
procedure third2;
|
|
var t2:integer;
|
|
begin
|
|
t2 := 320;
|
|
s := 32;
|
|
writeln('t2:', t2);
|
|
if g <> 21 then
|
|
begin
|
|
g := 21;
|
|
second;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
f := 2;
|
|
writeln('g:',g);
|
|
third1;
|
|
writeln('g:', g);
|
|
third2;
|
|
writeln('s:',s);
|
|
end;
|
|
|
|
begin
|
|
second;
|
|
writeln('f:', f);
|
|
end;
|
|
|
|
begin
|
|
g := 0;
|
|
first;
|
|
writeln('g:', g);
|
|
end.
|