2 câu trả lời
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.
