program tuoi_cha_con;

uses crt;

var tuoicha, tuoicon, nam: longint;

begin

clrscr;

write('Nhap tuoi cha va con(tuoicha-tuoicon>=25) ;

readln(tuoicha,tuoicon); nam:= 0;

while tuoicha<>2*tuoicon do begin

tuoicha:= tuoicha + tuoicon:= tuoicon + 1; nam:= nam +1;

end;

writeln ( ' Sau ', nam, ' nam, tuoi cha gap doi tuoi con' );

readln

End.