. Viết chương trình tìm UCLN của hai số a, b được nhập vào từ bàn phím. ( pascal 8 )

Program UCLN;

ues 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.

Tham khảo nhé

Program BTH;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a: ');readln(a);
        Write('Nhap b: ');readln(b);
        While a<>b do
                If a>b then a:=a-b else
                if b>a then b:=b-a;
        Writeln('UCLN la: ',a);
        readln;
End.