Viết chương trình tìm bội chung nhỏ nhất của a và b

program boichungNN;

uses crt;

var a,b:integer;

       BCNN:longint;

begin

clrscr;

write(‘Nhap a: ‘);   readln(a);

write(‘Nhap b: ‘);   readln(b);

BCNN:=a*b;

while a<>b do

 if a>b then a:=a-b else b:=b-a;

BCNN:=BCNN div a;

write(‘BCNN cua ‘,a,’ va ‘,b,’ la: ‘,BCNN);

readln

end.