program MultiplyingFractions; var infile, outfile:text; x:integer; isneg:boolean; numer, denom, whole, divisor: longint; begin assign(infile,'DATA31.txt'); reset(infile); assign(outfile,'OUT31.txt'); rewrite(outfile); for x:= 1 to 5 do begin isneg := false; readln(infile,numer, denom); if (numer < 0) and (denom < 0) then begin numer := numer * -1; denom := denom * -1; end else begin if (numer < 0) and (denom > 0) then begin isneg:=true; numer:=numer*-1; end else begin if (numer > 0) and (denom < 0) then begin isneg:=true; denom:=denom*-1; end; end; end; if numer = 0 then writeln(outfile,'0') else begin if isneg then write(outfile,'-'); whole := numer div denom; numer := numer - whole * denom; if whole > 0 then if numer > 0 then write(outfile,whole,' ') else writeln(outfile,whole); if numer > 0 then begin divisor := 2; repeat if (numer mod divisor = 0) and (denom mod divisor = 0) then begin numer := numer div divisor; denom := denom div divisor; end else inc(divisor); until divisor > denom div 2; writeln(outfile, numer,'/',denom); end; end; end; close(infile); close(outfile); end.