Viết chương trình nhập vào hai số nguyên dương m,n tìm BCNN của m,n

Program BTT;
Uses crt;
Var m,n: qword;

Function BCNN(a,b: qword): qword;
Begin
        BCNN:=a*b;
        While a<>b do
                If a>b then a:=a-b
                Else b:=b-a;
        BCNN:=BCNN div a;
End;

Begin
        Clrscr;
        Write('Nhap m: '); Readln(m);
        Write('Nhap n: '); Readln(n);

        Write('BCNN cua ',m,' va ',n,' la: ',BCNN(m,n));
        Readln
End.

uses crt;
var m,n,b:longint;
begin
clrscr;
   write('Nhap m,n: ');readln(m,n);
   b:=n;
   while (b mod m<>0)or(b mod n<>0) do inc(b);
   writeln('BCNN(',m,',',n,')= ',b);
readln
end.