program Tim_UCLN; uses crt; var a, b, x, y, UC:integer; begin clrscr; writeln('Nhap 2 so can tim: '); Readln(a,b); a:=x; b:=y; while x<>y do begin if x>y then x:=x-y else y:=y-x; end; UC:=x; {Hoặc y cũng được} writeln('UCLN cua 2 so ',a, 'va ', b,'la :', UC); readln; end.
