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

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.