Please post some tests or hints for this problem.
I can't understand why my programm wrong.

Var
   D,E,F,De,Dp,H,T : Longint;
Begin
Read(D,E,F,De,Dp,H);
T:=Trunc(Exp(Ln(2)*F));
If (De > T Div 2) And (Dp <= T Div 2) Then Begin
If (F-E)+(F-D)>H Then Writeln('NO') Else Writeln('YES');
Halt;
End;

If (Dp > T Div 2) And (De <= T Div 2) Then Begin
If (F-E)+(F-D)>H Then Writeln('NO') Else Writeln('YES');
Halt;
End;

If Abs(E-D)>H Then Writeln('NO') Else Writeln('YES');
End.

Mail me and you gen an answer !