uses crt;
var a,b,u,bc,t:integer;
begin
clrscr;
write ('nhap a: '); readln (a);
write ('nhap b: '); readln (b);
bc:=a*b;
t:=b mod a;
while t <> 0 do
begin
t:=a mod b;
a:=b;
b:=t;
end;
u:=a;
bc:=bc div u;
writeln ('UCLN: ',u);
writeln ('BCNN: ',bc);
readln;
end.