Var v1,v2,t1,t2:real;
begin
writeln ('Введите скорости автомобился на двух участках пути: ');
read (v1,v2);
writeln ('Введите время прохождения обоих участков пути: ');
read (t1,t2);
writeln ('Путь, который проехал автомобиль: ',(V1/t1+V2/t2));
writeln ('Средняя скорость автомобился: ',( (V1/t1+V2/t2)/(t1+t2)) );
end.