Автомобиль ехал t1 часов со скоростью v1 и t2 часов со скоростью v2. найдите среднюю скорость автомобиля

Var
   v1,v2,t1,t2,S1,S2:real;
Begin
Write('v1 = ');ReadLn(v1);
Write('t1 = ');ReadLn(t1);
Write('v2 = ');ReadLn(v2);
Write('t2 = ');ReadLn(t2);
S1:=v1*t1;
S2:=v2*t2;
WriteLn('Vср = ',(S1+S2)/(t1+t2))
End.