uses crt;
var tuoicon, tuoicha, dem: byte;

begin
    write('Nhap tuoi cha va tuoi con: ');
    readln(tuoicha, tuoicon);

    while (tuoicha - tuoicon < 25) or (tuoicha <= tuoicon * 2) do
    begin
        write('Nhap tuoi khong hop le! Nhap lai: ');
        readln(tuoicha, tuoicon);
    end;

    dem := 0;
    while (tuoicon + dem) * 2 < tuoicha + dem do
        dem := dem + 1;

    write('Sau ', dem,' nam thi tuoi cha bang 2 lan tuoi con');
    readln;
end.