{Bài 1: Viết chương trình cho phép nhập vào 2 số nguyên dương, hiện ra màn hình ước chung lớn nhất của 2 số đó.}
program ucln;
uses crt;
var a,b,r: integer;
begin
clrscr;
write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);
repeat
r:=a mod b;
a:=b;
b:=r;
until r=0;
writeln('UCLN=',a);
readln;
end.