chương trình tìm bcnn
VAR a,b:longint;
function ucln(a,b:longint):longint;
var c:longint;
begin
c:=a mod b;
while c<>0 do
begin
a:=b;
b:=c;
c:=a mod b;
end;
ucln:=b;
end;
function bcnn(a,b:longint):longint;
begin
bcnn:=a*b div ucln(a,b);
end;
begin
readln(a,b);
write(bcnn(a,b));
readln
end.