Program UCLN_Euclid;
Uses crt;
Var a, b, r: integer;
Begin
Clrscr;
Readln(a);
Readln(b);
r:=a mod b;
While r<>0 do
Begin
a:=b;
b:=r;
r:= a mod b;
End;
Writeln('UCLN: ',b);
Readln;
End.
Cảm ơn bạn đã đọc câu trả lời của mk, chúc bạn học tốt! Cho mk câu trả lời hay nhất nha! Thanks!