BCNN:

program boichung;
var m,n: word;

procedure Input;
        begin
            readln(m,n);
        end;

function BC(m,n: word): word;
var i: word;
       begin
           for i := 1 to n * m do
               if (i mod n = 0) and (i mod m = 0) then
                   write(i,' ');
       end;

begin
    Input;
    BC(m,n);
end.

UCLN:

program UCLN;
var m,n,r,i: longint;
begin
readln(n,m);

n := abs(n);
m := abs(m);

if (n = 0) then
    begin
        i := 1;
        write(m);
    end
else
    if (m = 0) then
        begin
            i := 1;
            write(n);
        end;

r := n mod m;
while r <> 0 do
      begin
        r := n mod m;
        n:= m;
        m:= r;
      end;
if (i = 0) then
    write(n);

readln    
end.

program quangvinh255;
var m,n: word;

procedure Input;
        begin
            readln(m,n);
        end;

function BC(m,n: word): word;
var i: word;
       begin
           for i := 1 to n * m do
               if (i mod n = 0) and (i mod m = 0) then
                   write(i,' ');
       end;

begin
    Input;
    BC(m,n);
end.

program hieups;
var a,b,c,d,msc: longint;
function UCLN(a,b: longint): longint;
var r: longint;
       begin
           r := a mod b;
           while r <> 0 do
                 begin
                     r := a mod b;
                     a := b;
                     b := r;
                 end;
            UCLN := a;
       end;

procedure Output;
var t: longint;
        begin
               if (a mod msc = 0) then
                   write(a div msc)
               else   
                  begin 
                      t := UCLN(a,msc);
                      a := a div t;
                      msc := msc div t;
                      if msc < 0 then
                         write(-a,'/',abs(msc))
                      else
                         write(a,'/',msc);
                  end; 
        end;

begin
    readln(a,b,c,d);
    msc := b * d;
    a := (a * d) - (c * b);
    Output;
end.

program hieups; var a,b,c,d,msc: longint; function UCLN(a,b: longint): longint; var r: longint; begin r := a mod b; while r <> 0 do begin r := a mod b; a := b; b := r; end; UCLN := a; end; procedure Output; var t: longint; begin if (a mod msc = 0) then write(a div msc) else begin t := UCLN(a,msc); a := a div t; msc := msc div t; if msc < 0 then write(-a,'/',abs(msc)) else write(a,'/',msc); end; end; begin readln(a,b,c,d); msc := b * d; a := (a * d) - (c * b); Output; end.