2. Viết chường trình tìm bội chung nhỏ nhất của 2 số nguyên nhập từ bàn phím vào.
 Program TIMBCNN 
Uses crt; 
Var X1,X2,T1,T2,UCLN : Integer; 
BCNN : real; 
Begin 
Clrscr; 
Write('nhap 2 so nguyen tu ban phim :'); 
Readln(X1,X2); 
T1:=X1; 
T2:=X2; 
While(X1<>X2)do 
If(X1>X2)Then X1:=X1-X2 
Else X2:=X2-X1; 
UCLN:=x1; 
BCNN:=(T1*T2)/UCLN; 
Writeln('BCNN cua 2 so vua nhap la:',BCNN:8:2); 
Readln; 
End.