Известно сопротивление каждого из 10 элементов электрической цепи , соединенных последовательно. Определите общее сопротивление цепи

Const   N = 10;Var   R:array[1..N] of integer;   i,Ro:integer;BeginRo:=0;For i:= 1 to N do    Begin    Write('R',i,' = ');    ReadLn(R[i]);    Ro:=Ro+R[i];    End;WriteLn('Ro = ',Ro);End.