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

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.