Известно сопротивление каждого из элементов электрической цепи. все элементы соединены параллельно. определить общее сопротивление элементов. pascal pozhaluista !

var cond,res:real;

begin

   cond:=0;

   readln(res);

   while (res>0) do

   begin

      cond:=cond + 1/res;

      readln(res);

   end;

   writeln(1/cond)

end.

(Считаю, что с клавиатуры вводятся сопротивления, признак конца ввода - 0)