автомобиль проехал 3 участка пути разной длины с разными скоростями найдите среднюю скорость автомобиля составить алгоритм

упс. щас поправить попробую

program avto;var a,b,c,d:real;beginwriteln ('Введите 3 скорости автомобиля');read (a,b,c);d:=(a+b+c)/3;write ('Средняя скорость автомобиля:', d);end.

И вот тебе еще одна программа, на случай если неизвестен путь и неизвестно время

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