Помогите решить задачу в Паскале

[Nur]

Помогите решить задачу в Паскале

Измеряя промежутки времени между вспышкой молнии и раскатом грома, определить, удаляется или приближается гроза?

 

[Vladimir_S]

Измеряя промежутки времени между вспышкой молнии и раскатом грома, определить, удаляется или приближается гроза?

Да... это, конечно, безумно сложно.

Var
 Dt1,Dt2:Real;
Begin
 Write('Dt1= ');
 Readln(Dt1);
 Write('Dt2= ');
 Readln(Dt2);
 If Dt2<Dt1 then
  Writeln('Thunderstorm approaches! Run for your lives!!!')
 else
  Writeln('Thunderstorm retires! We shall wait to die...');
 Readln
End.