uses crt;

var a,b,ucln,bcnn,i:integer;

begin

clrscr;

write('Nhap a='); readln(a);</p><p>write('Nhap b='); readln(b);</p><p>ucln:=1;</p><p>if a<b then begin</p><p>                        for i:=1 to a do</p><p>                           if (a mod i=0) and (b mod i=0) then                                             begin</p><p>                                     if ucln<i then ucln:=i;            </p><p>                               end;    </p><p>                   end else begin</p><p>              for i:=1 to b do</p><p>                  if (a mod i=0) and (b mod i=0) then</p><p>                      begin</p><p>                           if ucln<i then ucln:=i;</p><p>                      end;      </p><p>       end;</p><p>bcnn:=a*b;</p><p>for i:=a*b-1 downto 1 do  </p><p>   if (i mod a=0) and (i mod b=0) then      </p><p>       begin</p><p>             if bcnn>i then bcnn:=i;      </p><p>       end;</p><p>writeln('Uoc chung lon nhat la: ',ucln); 

writeln('Boi chung nho nhat la: ',bcnn);

readln;

end.