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ên này
uses crt; var f:text; a,b,x,y:longint; begin assign(f,'INPUT.INP');reset(f); read(f,a,b); close(f); assign(f,'OUTPUT.OUT');rewrite(f); x:=a;y:=b; while x<>y do begin if x>y then dec(x,y) else dec(y,x); end; write(f,a*b div x); close(f); end.