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 ước chung lớn nhất của 2 số nguyê

program UCLN;

var f,g:text;

     a,b:integer;

begin

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

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

      readln(f,a,b);

      while a<>b do

            if a>b then a:=a-b else b:=b-a;

      write(g,a);

      close(f);  close(g);

end.