{ Bài 2: Viết chương trình cho phép nhập vào 2 số nguyên dương, hiện ra màn hình bội chung nhỏ nhất của 2 số đó. }
program bcnn;
uses crt;
var a,b,i,r: integer;
begin
clrscr;
write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);
i:=1;
repeat
r:=a*i mod b;
i:=i+1;
until r=0;
writeln('BCNN=',a*(i-1));
readln;
end.