ПОЖАЛУЙСТА, ПОМОГИТЕ!!!!!!!
В массиве хранится информация о сопротивлении каждого 20 элементов электрической цени. Все элементы соединены параллельно . Определить общее сопротивление цепи.

помогите написать программу

Const   N = 20;Var   R:array[1..N] of integer;   i:integer;   Ro:real;BeginRandomize;Ro:=0;Write('Сопротивления проводников:');For i:= 1 to N do    Begin    R[i]:=random(2*N)+1;    Ro:=Ro+1/R[i];    Write(' ',R[i])    End;WriteLn;WriteLn('Ro = ',Ro)End.