for i=0to 999input""y$
a=val(y$)
b=val(mid$(y$,instr(y$,"/")+1))
c=a
d=b
while(d)t=mod(c,d)
c=d
d=t
wend
?a/c;
if b/c>1?"/",b/c;
?next