Chiato.inp chứa 2 số nam và nữ.VCT xuất ra file chiato.out có thể chia nhiều nhất bao nhiêu tổ sao cho mỗi tổ có số lượng nam và nữ bằng nhau và cho biết mỗi tổ có bao nhiêu nam?bao nhiêu nữ?

uses crt;

var a,b,i,c:longint;

      f,g:text;

const fin='chiato.inp';

          fou='chiato.out';

begin

assign(f,fin); reset(f);

assign(g,fou); rewrite(g);

read(f,a);

read(f,b);

for i:=1 to (a+b)/2 do

if a mod i=0 and b mod i=0 then c:=i;

write(g,a div c);

write(g,b div c);

writeln(g,c);

close(f);

close(g);

end.

P/S: mk vt theo kiểu đi thi hsg nên sẽ hơi khác chút xíu mong bn thông cảm nhé!

chú thích: a là số học sinh nam, b là số học sinh nữ,c là số tổ tối đa, f,g là biến tệp