uses crt; var a,b:integer; begin clrscr; write('Nhap a=');readln(a); write('Nhap b=');readln(b); while a<>b do if a>b then a:=a-b else b:=b-a ; write('Uoc chung lon nhat la ',a); readln;
166 Điểm
160 Điểm
80 Điểm