Hãy lập trình tìm ra BCNN của số a và số b Dữ liệu vào: 1 dòng số là a và b (1<=a, b<= 10^5) Dữ liệu ra 1 dòng là BCNN của 2 số a,b

program bai_giai;
uses crt;
var ucln,bcnn,a,b,i:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  bcnn:=a*b;
  for i:=1 to a do if(a mod i=0)and(b mod i=0)then ucln:=i;
  bcnn:=bcnn div ucln;
  write('boi chung nho nhat cua hai so a va b la:',bcnn);
 readln;
end.

uses crt;
var a,b,r,tmp:longint;
begin
clrscr;
    read(a,b);
    tmp:=a * b;
    while b <> 0 do
        begin
            r:=b;
            b:=a mod b;
            a:=r;
        end;
    writeln(tmp div a);
readln; readln;
end.