tính UCLN của a và b

program uoc_chung;

uses crt;

var a,b: integer;

begin

writeln('nhap a='); readln(a);

writeln('nhap b='); readln(b);

while a>b do then a:=a-b

else b:=b-a;

if a=b then write ('uoc chung lon nhat la',a)

readln;

end.

BCNN tương tự

from