Viết chương trình tìm UCLN và BCNN của hai số nguyên M và N được nhập từ bàn phím?

uses crt;

var a,b,aa,bb:integer;

begin

      clrscr;

     write ('nhap vao a,b:');readln(a,b);

aa:=a;

bb:=b;

while aa<>bb do begin

ì aa> bb then aa:=aa-bb else

bb:=bb-aa;

end;

write ('ucln:',aa);

write('bcnn:',a*b div aa);

readln

end.