uses crt;
var a,b : integer;
function ucln(x,y : integer ) : integer;
var r : integer;
begin
while y<>0 do begin
r:=x mod y;
x:=y;y:=r;
end;
ucln:=x; end;
begin clrscr;
write('Nhap a :'); readln(a);
write('Nhap b :'); readln(b);
write('UCLN cua ',a,' va ',b,' la :',ucln(a,b));
readln
end.