program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
   Mass: array of Double;
   Num, i, NumNew: Integer;
   C1, C2: Double;
   IsCorrect: Boolean;
begin
   IsCorrect := False;
   C1 := 0;
   C2 := 0;
   repeat
      Write('Пожалуйста, введите количество конденсаторов : ');
      try
         Readln(Num);
         IsCorrect := True;
      except
         Writeln('Ошибка! Введите целое положительное число.');
      end;
      if Num < 0 then
         Writeln('Ошибка! Введите целое положительное число.');
   until(IsCorrect) and (Num > 0);
   Setlength(Mass, Num);
   NumNew := Num - 1;
   for i := 0 to NumNew do
      repeat
         Write('Пожалуйста, введите ёмкость ',i + 1,'-ого конденсатора : ');
         try
            Readln(Mass[i]);
            IsCorrect := True;
         except
            Writeln('Ошибка! Введите положительное число.');
         end;
         if Mass[i] < 0  then
            Writeln('Ошибка! Введите положительное число.');
      until(IsCorrect) and (Mass[i] > 0);
   for i := 0 to NumNew do
      begin
         C1 := C1 + Mass[i];
         C2 := C2 + 1 / Mass[i];
      end;
   C2 := 1 / C2;
   Writeln('Ёмкость системы при параллельном соединении равна :',C1:7:5);
   Writeln('Ёмкость системы при последовательном соединении равна :',C2:7:5);
   Readln;
end.