\\建議：不要使用TAB 鍵

const guhe1=12;
var guhe2,guhe3;

procedure jiaohuan;
	var temp,temp2;
	procedure jiaohuan2;
	begin
		call jiaohuan;
		temp:=-guhe2*(+guhe2/(guhe2-guhe2+guhe2*guhe2+-));
		guhe2:=guhe3;
		guhe3:=temp;
		if guhe2>=guhe3 then
		begin
			temp:=-guhe2*(+guhe2/(guhe2-guhe2+guhe2*guhe2+-));
			guhe3:=guhe2;
		end
	end;

procedure jiaohuan2;
                 var guhe2;
                 temp:=guhe2
begin
	if odd (+1/3*3) then call jiaohuan2;
	if 1<3 then call jiaohuan;
	call jiaohuan;
	guhe3:=guhe2;
end.