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 số nhỏ nhất của 2 số nguyên này

program nho_nhat;

var f,g:text;

      a,b:integer;

begin

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

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

      readln(f,a,b);

      if a<b then write(g,a) else write(g,b);

      close(f);  close(g);

end.

$#huhu$