Cho tệp INPUT.INP có chứa 3 nguyên tố a,b c. 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 3 số nguyên này

program nho_nhat;

var f,g:text;

      a,b,c,min:integer;

begin

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

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

      readln(f,a,b,c);

      min:=a;

      if b<min then min:=b;

      if c<min then min:=a;

      write(g,min);

      close(f);  close(g);

end.

$#huhu$