Определить, через какое время встретятся два поезда

Определить, через какое время встретятся два поезда, движущиеся из пунктов a и b навстречу друг другу. известно, что скорость поездов 40 и 60 km/ч, а расстояниие ab - 120.

function GetTime(v1,v2,S: real): real;
begin
  GetTime := S/(v1+v2);
end;
 
begin
  writeLn('t = ',GetTime(40,60,120):10:2);
end;