2 câu trả lời
Var m, n, BC, BCNN:interger ;
begin
Write( ' Nhap vao 2 so nguyen duong m,n : ' ) ;
Readln ( m , n ) ;
BC: =m*n ;
While m<>n do
if m>n then m: m-n else n: =n-m ;
BCNN: =BC div m;
Write( ' Boi chung nho nhat la : ' , BCNN ) ;
Readnl
End