Của pascal hay C+ bạn?
Cái này là của pascal nhé :D Nếu bạn muốn tìm hiểu C+ thì ibox m gửi tài liệu cho nhé.

program uoc_chung; 
var a,b,r: interger; 
Begin 
write('Nhap so nguyen a:'); 
readln(a); 
write('Nhap so b:'); 
readln(b); 
while (a<=0) or (b<=0) do r:= a mod b; 
while r>0 do 
begin 
a:=b; 
b:=r; 
r:=a mod b; 
end; 
writeln('UCLN la:',b:5:1); 
End. 
(Nguồn: yahoo)