求埃及分数代码

贪心
程序给你
{
PROG: Egypt
LANG: PASCAL
}
var
s,n,m,k:integer;
function gcd(x,y:integer):integer;
var r:integer;
begin
repeat
r:=x mod y;
x:=y;
y:=r;
until r=0;
gcd:=x;
end;

begin
writeln('Input n/m');
readln(n,m);
s:=gcd(n,m);
n:=n div s;
m:=m div s;
while n<>1 do begin
k:=m div n+1;
write('1/',k,'+');
n:=n*k-m;
m:=m*k;
s:=gcd(n,m);
n:=n div s;
m:=m div s;
end;
writeln('1/',m);
end.