Viết chương trình tìm ước chung lớn nhất của 2 số a và b (a, b là các số nhập từ bàn phím)

Lời giải:

program UCLN;

uses Crt;

var a,b :integer;

begin

write ('nhap so a la ');readln (a);

write ('nhap so b la' );readln (b);

while a< >b do

if a > b then a:= a - b else b:=b-a;

write ('UCLN la :',a);

readln

end.