uses crt;
var a,b,dem,k:longint;
begin
 dem:=0;
     clrscr;
         writeln('Nhap vao tuoi cha: ');readln(a);
         writeln('Nhap vao tuoi con: ');readln(b);
         k:=a;
              if a<b then write('Vo ly,tuoi cha khong the be hon tuoi con: ');
         if a>b then
           if b*2=a then write('Tuoi cha hien tai gap doi tuoi con');
            if (b*2<>a) and (b*2<a) then
             while b*2<>a do
             begin
               dec(a);
               inc(dem);
             end;
            if (b*2<>a) and (b*2>a) then
              begin
                inc(a);
                inc(dem);
              end;
               if (b*2<>k) and (b*2<k) and (b<k) then write('Giam di ',dem,' nam tuoi cha se gap doi tuoi con');
               if (b*2<>k) and (b*2>k) and (b<k) then write('Tang them ',dem,' nam nua tuoi cha se gap doi tuoi con');
        readln;
end. 

     Thắc mắc gì hỏi mình nha.