pascal 简单问题

2.一个分子大于1的真分数通常能化成三个分子为1而且分母小于100的真分数之和。例如：3/11=1/5+1/20+1/44。请编程求出这些分数。
要求：输入原分子、分母，输出所有符合条件的式子。
例如：输入3 11，应输出： 3/11=1/5+1/20+1/44
3/11=1/6+1/11+1/66
3/11=1/6+1/12+1/44

以下程序在DELPHI下运行通过：

{$apptype console}
PROGRAM exp;
var
a,b,i1,i2,i3:integer;
begin
readln(a,b);
for i1:=1 to 100 do
for i2:=1 to 100 do
for i3:=1 to 100 do
if a*i1*i2*i3=b*(i1*i2+i1*i3+i2*i3)
then writeln(a,'/',b,'=1/',i1,'+1/',i2,'+1/',i3);
end.

运行结果如下：

E:\ygb>dcc32 a.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
a.dpr(12)
13 lines, 0.03 seconds, 11300 bytes code, 1813 bytes data.

E:\ygb>a.exe
3 11
3/11=1/4+1/88+1/88
3/11=1/5+1/20+1/44
3/11=1/5+1/44+1/20
3/11=1/6+1/11+1/66
3/11=1/6+1/12+1/44
3/11=1/6+1/44+1/12
3/11=1/6+1/66+1/11
3/11=1/8+1/8+1/44
3/11=1/8+1/44+1/8
3/11=1/11+1/6+1/66
3/11=1/11+1/11+1/11
3/11=1/11+1/66+1/6
3/11=1/12+1/6+1/44
3/11=1/12+1/44+1/6
3/11=1/20+1/5+1/44
3/11=1/20+1/44+1/5