已知三整数a.b.c之和为13,且a/b=b/c.求a的最大值和最小值,并求出此时相应的b与c之值

delphi 7 通过 procedure TForm1.Button1Click(Sender: TObject); var a,b,c:integer; begin for a:=0 to 12 do for b:=1 to 11 do if (a+b)<=12 then begin c:=13-a-b; if a/b=b/c then showmessage('A:'+inttostr(a)+' B:'+inttostr(b)+' C: