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

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.