Cho tệp INPUT.INP có chứa 2 nguyên tố a,b. Viết chương trình đọc dữ liệu từ tệp INPUT.INP và ghi vào tệp OUTPUT. OUT bội chung nhỏ nhất của 2 số nguyê

program BCNN;

var f,g:text;

     a,b,bc:integer;

begin

      Assign(f,’INPUT.INP’);   reset(f);

      Assign(g,’OUTPUT.OUT’);   rewrite(g);

      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(g,bc);

      close(f);  close(g);

end.