Известно сопротивление каждого из элементов электрической цепи. Все элементы соединены последовательно. Определить общее сопротивление цепи — Pascal(Паскаль)

var s,n,i,r:integer;
begin
writeln('kol-vo el-tov cepi');
readln(n);
writeln('vvedite ',n,' soprotivlenij:');
for i:=1 to n do
 begin
  readln(r);
  s:=s+r;
 end;
writeln('obshee soprotivlenie=',s);
readln;
end.