Câu 7 trang 51 SGK Tin học 11

Chương trình về tuổi cha và tuổi con:

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;