uses crt;
var a, b, c, uc, bc, i, m: longint;
begin
 clrscr;
  write ('nhap a: ');  readln (a);
  write ('nhap b: ');  readln (b);
  write ('nhap c: ');  readln (c);
  m:=a;
  if m>b then m:=b;
  if m>c then m:=c;
  uc:=1;
  for i:=1 to m do
  if (a mod i= 0) and (b mod i= 0) and (c mod i= 0) then
   begin
    if uc<i then uc:=i;
   end;
   bc:=a*b*c;
   for i:=a*b*c downto 1 do
   if (i mod a= 0) and (i mod b= 0) and (i mod c= 0) then
   begin
    if bc>i then bc:=i;
   end;
   writeln ('Uoc Chung Lon Nhat: ',uc);
   writeln ('Boi Chung Nho Nhat: ',bc);
 readln;
end.

uses crt;
var a,b,c,t,i:longint;
begin
clrscr;
   write('Nhap 3 so: ');readln(a,b,c);
   for i:=1 to a do if(a mod i=0)and(b mod i=0)and(c mod i=0)then t:=i;
   writeln('UCLN= ',t);
   i:=a;
   while (i mod a<>0)or(i mod b<>0)or(i mod c<>0) do inc(i);
   writeln('BCNN= ',i);
readln
end.