求Free Pascal IDE的一个简单程序代码?

Question

是个问题：两个从1-100的整数，把他们进行加减乘除后结果相加为243，求这两个数。要完整流程

Answer 1

Var a, b, he, cha, ji, shang : Integer;
Begin
For a := 1 To 100 Do
For b := a To 100 Do { 为避免重复，也为了节省时间，假定b是相对大数。 }
Begin
If NOT ((a MOD b = 0) OR (b MOD a = 0)) Then Continue;
{ 两数不能整除就继续下一循环 } 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.