Var a, b, he, cha, ji, shang : Integer;
Begin
For a := 1 To 100 Do
For b := a To 100 Do { 為避免重復(fù)，也為了節(jié)省時(shí)間，假定b是相對大數(shù)。 }
Begin
If NOT ((a MOD b = 0) OR (b MOD a = 0)) Then Continue;
{ 兩數(shù)不能整除就繼續(xù)下一循環(huán) } he := a + b; { 和 }
cha := Abs(a - b); { 差。Abs 求絕對值 }
ji := a * b; { 積 }
If a > b { 商 }
Then shang := a DIV b
Else shang := b DIV a; If he + cha + ji + shang = 243 Then Writeln(a, ' ', b);
End; Readln;
End.