Прямоугольник:)))))..........
Смотри прикрепленный файл
ответ не правильный, там должно быть 8 пункты ABDCE 2+1+3+2=8
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)
Листинг программы и результат представлены ниже