uses crt ;
 var m,n,BCNN,UCLN : longint ;
  begin
   clrscr;
   m:=0;
    n:=0;
    while (m<10) or (n<10) do
     begin
    write('m=');
    readln(m);
    write('n=');
    readln(n);
    end;
    UCLN:=m*n ;
       while m<>n do
          if m>n then m:=m-n else n:=n-m ;
           UCLN := m ;
           BCNN :=BCNN div UCLN;
           writeln('UCLN',UCLN);
           writeln('BCNN',BCNN);
      end.   

uses crt;

var i, m, n, uc : integer;

begin

clrscr;

write('Nhap so m, n = '); readln(m, n);

while (m <= 10) or (n <= 10) do

begin write('Nhap lai m, n = ');

readln(m, n); end;

for i := 1 to n do

if (m mod i = 0) and (n mod i = 0) then uc := i;

i := 1;

writeln('UCLN(m, n) = ', uc);

writeln('BCNN(m, n) = ', (m * n) div uc);

readln

end.