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

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)