Автомобиль ехал 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.