Var v1,t1,v2,t2,sr:real;
begin
write('Введите V1, t1: '); readln(v1,t1);
write('Введите V2, t2: '); readln(v2,t2);
sr:=(v1*t1+v2*t2)/(t1+t2);
writeln('Средняя скорость = ',sr);
end.
Пример:
Введите V1, t1: 60 1
Введите V2, t2: 90 2
Средняя скорость = 80