Đoạn chương trình thực hiện công việc tìm UCLN của a và b
đoạn chương trình đầy đủ là:
uses crt; var a, b, sd, UC: integer; begin clrscr; write ('nhap a: '); readln (a); write ('nhap b: '); readln (b); while (b<>0) do begin sd:=a mod b; a:=b; b:=sd; end; writeln; UC:=a; writeln ('ucln cua a va b la: ',UC); readln; end.
