Определить, догонит ли легковой автомобиль грузовой через Т1 ч после своего выезда - Free Pascal

Формулировка задачи:

Грузовой автомобиль выехал из одного города в другой со скоростью V1 км/ч. Через Т часов в том же направлении выехал легковой автомобиль со скоростью V2 км/ч. Определить, догонит ли легковой автомобиль грузовой через Т1 ч после своего выезда.

Решение задачи: «Определить, догонит ли легковой автомобиль грузовой через Т1 ч после своего выезда»

Листинг программы

readLn(V1);
readLn(V2);
readLn(T1);
readLn(T);
if (V1*T + (V1-V2)*T1 <= 0) then
  writeLn('Догонит')
else
  writeLn('Не догонит');

Объяснение кода листинга программы

Ввод данных с клавиатуры: V1 - скорость легкового автомобиля (в км/ч), V2 - скорость грузового автомобиля (в км/ч), T1 - время, через которое легковой автомобиль догонит грузовой (в часах), T - общее время (в часах).
Расчет: Если (V1T + (V1-V2)T1) меньше или равно нулю, то легковой автомобиль догонит грузовой. Если (V1T + (V1-V2)T1) больше нуля, то легковой автомобиль не догонит грузовой.
Вывод результата на экран: Если (V1T + (V1-V2)T1) меньше или равно нулю, то выводится сообщение Догонит. Если (V1T + (V1-V2)T1) больше нуля, то выводится сообщение Не догонит.