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.