program avto2;
var a,b,c,d,a1,b1,c1:real;
begin
writeln ('Введите длинну трех участков пути');
read (a,b,c);
writeln ('Введите время затраченное на каждый путь');
read (a1,b1,c1);
d:=(a+b+c)/(a1+b1+c1);
write ('Средняя скорость автомобиля:', d);
end.