Viết chương trình tìm ước chung lớn nhất của 2 số nguyên.In kết quả ra màn hình

Program bai_tap;

Uses crt;

Var M,N: integer;

Begin

   clrscr;

   write ('Nhập M, N= ');

   readln (M,N);

   While M <> N do

        if M >N then M:= M - N else N:= N - M;

   writeln( ' UCLN = :  ', M);

   readln

End.

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.

~~~~~~~~~~~~~~~~~~ Chúc bn học tốt ~~~~~~~~~~~~~~~~~