Viết phương trình đọc từ tệp văn bản KT15.TXT 2 số nguyên tính và in ra màn hình bội chung nhỏ nhất của 2 số

program bai_giai;
uses crt;
var f:text;
    a,b,bc:longint;
begin
    clrscr;
    Assign(f,'KT15.TXT');  reset(F);
    readln(f,a,b);
    bc:=a*b;
    while a<>b do
        if a>b then a:=a-b else b:=b-a;
    bc:=bc div a;
    write(bc);
    close(f); readln;
end.

uses crt;
var d:text; a,b,i:longint;
begin
clrscr;
   assign(d,'input.pas');reset(d);
      readln(d,a);
      readln(d,b);
   close(d);
   i:=a;
   while not((i mod a=0)and(i mod b=0)) do inc(i);
   writeln('Boi chung nho nhat:',i);
readln
end.

Mình dùng cách là tăng i cho đến khi tìm ra bội chung thì dừng nên đó chính là kết quả!!!