Viết chương trình tìm bội chung nhỏ nhất của 2 số nguyên dương

uses crt;

var a, b, bc : integer;

begin

clrscr;

write('nhap so a :');readln(a);

write('nhap so b :');readln(b);

bc := a * b;

while a <> b do

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

writeln('boi chung nho nhat la :', bc div a);

readln

end.

Program Hotboy ;

Uses crt;

var a,b,Ni,Nh: integer;

begin

Write('nhap so a'); readln(a);

Write('nhap so b'); readln(b);

Nh:=a*b;

While a<>b do If a>b then a:=a-b else b:=b-a;

Ni:=a;

Nh:=Nh div Ni;

write('Boi chung nho nhat la',Nh);

Readln

end.