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?

Program UCLN_va_BCNN;

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

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

    bb:=bb-aa;

  End;

Write (‘ucln:’,aa);

Write(‘bcnn:’,a*b div aa);

Readln;

End.