uses crt;
var a1,a2,b1,b2,t:longint;
function ucln(a,b:longint):longint;
begin
    while a*b<>0 do
        begin
            a:=a mod b;
            if a<>0 then b:=b mod a;
        end;
    exit(a+b);
end;
procedure nhap(var a,b:longint;i:byte);
begin
    write('Nhap tu so va mau so cua phan so thu ',i,': ');readln(a,b);
    while b=0 do
        begin
            write('Mau so khong hop le,nhap lai: ');readln(b);
        end;
end;
begin
    clrscr;
    nhap(a1,b1,1);
    nhap(a2,b2,2);
    a1:=a1 div ucln(a1,b1);
    b1:=b1 div ucln(a1,b1);
    a2:=a2 div ucln(a2,b2);
    b2:=b2 div ucln(a2,b2);
    writeln('Rut gon:');
    writeln('Phan so 1: ',a1,'/',b1);
    writeln('Phan so 2: ',a2,'/',b2);
    t:=b1*b2 div ucln(b1,b2);
    a1:=a1*(t div b1);
    a2:=a2*(t div b2);
    b1:=t;b2:=t;
    writeln('Quy dong:');
    writeln('Phan so 1: ',a1,'/',b1);
    writeln('Phan so 2: ',a2,'/',b2);
    a1:=a1+a2;
    writeln('Tong: ',a1 div ucln(a1,b1),'/',b1 div ucln(a1,b1));
readln;
end.