in_IR.txt

var i,j:integer;
	arr:array[10] of integer;
	
procedure assign1(var i:integer);
	procedure assign2(var i:integer);
		procedure assign3(var i:integer);
			procedure assign4(var i:integer);
				procedure assign5(var i:integer);
				var j : integer;
				begin
					write("i is:",i);					
				end;
			begin
				assign5(i);
			end;
		begin
			assign4(i);
		end;
	begin
		assign3(i);
	end;
begin
	assign2(i);
end;

begin
	i := 4;
	assign1(i);
end.