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

Var   v1,v2,t1,t2,S1,S2:real;BeginWrite('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.