bài này bắt buộc dùng while ..do hoặc repeat ... until

em xem bài anh làm nhé

Code:
 

var t1, t2, i:byte;
       begin
                  write (' nhập tuổi bố, con');
                  readln(t1,t2);
                  While t2*2<t1  do 
                        begin
                              t1:=t1+1;
                              t2:=t2+1;
                              i:=i+1;
                        end;
                  Write (' so nam la', i+1);           
                   readln; 
            end.