program  //jjjj
integer a1 ,a2;//kkk
logical b1
begin

procedure my()
begin
	procedure myy(integer a4,a5)
	begin
	write a4-a5
	end
call myy 10 8
end

procedure my1()
begin
write 111
end

call my ;
call my1;

b1:=true;

a1:=100;
a2:=1000;

if b1 then 
write a1
else
write a2
end
end.

//procedure my(integer a8,a3)
//begin
	//procedure myy(integer a4,a5)
	//begin
	//write a4-a5
	//end
//call myy a8 a3
//end