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

Program Avto; Var     v1, v2, v3, v4, v5: Real;     vSred: Real; Begin     Write('введите скорости на 5 участках ');     ReadLn(v1, v2, v3, v4, v5);          vSred := 5 / (1/v1 + 1/v2 + 1/v3 + 1/v4 + 1/v5);          WriteLn('средняя скорость = ', vSred);          ReadLn; End.