Рассчитать общее сопротивление электрической цепи при параллельном соединении резисторов. Значения сопротивлений сохранить в массив. Напишите программу

Романтика, аниматор, форманта, романтик, иномарка, фанариот, Митрофан, наркомат,камфора, натирка, каротин, тиранка, фонарик, Кириана, инфаркт, картина, ритмика,Никифор, марафон, Матрона, маринка, макитра, формиат, , трофика, маниока, комната,мартини, , антимир, матрона, окраина, фанатик, акроним, миканит, октарин, формант,намотка, аромат, мантра, фианит, Африка, кантор, Анфима, катион, микрон, фантик,тарник, кианит, фортка, комара, ратник, нарком, арника, камора, анатом, кармин,фактор, морфин, фоника, аконит, мирика, Никита, ракита, трафик, картон, форинт,кифара, Марина, афронт, кантри, Трифон, фирман, иранка, катран, формат, кафтан,тонарм, фантом, тиамин, Трофим, каинит, тоника, фараон, Карина, Моника, Мартин,амфора, карман, нотка, ринит, фомка, франт, Марфа, морфа, антик, Коран, матка,фанат, канат, мирка, танка, трико, финик, корма, мотка, октан, форма, Макар,мирок, рамка, томик, актор, Мирон, тариф, Ирина, кафир, кофта, марка, накат,роман, митра, фитин, минор, тоник, икота, карат, норка, тиара, Фаина, Аарон,Марта, отара, карма, манок, факир, нарта, ротик, франк, манто, тиран, крона,фиакр, фронт, интим, карта, маори, Марат, мотик, ритон, Афина, макар, нимфа,финка, катар, Мотра, рифма, фанки, актин, коата, мирон, нитка, таран, аорта,Томна, фанта, амати, икаит, ранка, Тарка, Марка, Роман, икона, комар, ратин,Арина, нарик, манка, норма, аркан, камин, инока, мора, факт, крон, така, торн,Рита, аком, арфа, крот, Мира, Ника, рака, трак, фтор, мара, окра, тмин, фора,рама, фанк, кмин, Тара, трио, финт, Ирак, мрак, фант, афта, каон, коиф, рана,трок, фирн, Мина, ИКАО, Кара, кома, нора, рант, арат, Каин, Нара, фара, арка,Кама, Кима, фарт, нота, тина, Фома, киот, Крит, тори, фата, морф, ринк, Аким,Арон, Кира, мира, натр, торф, кора, окат, ритм, атом, кана, танк, фиат, корм,кант, миро, рами, тара, корт, маки, РАМН, кофр, Марк, мина, омар, кара, Мана,мирт, нома, трон, фита, арак, кран, оним, форт, амин, Нора, крат, март, икра,Фока, кино, крин, мион, офит, рота, тора, фрак, тир, кир, Мир, рак, кор, фан,Кан, тан, мот, акр, ион, кат, риф, Ток, акт, кот.
НОРМАЛЬНО?

Вот! Вообщем там много.

label 1, 2, 3, 4, 5, 6, 7, 8, 9;

var

  i, x, m, n, k: integer;

  s: real;

  a: array of real;

begin

  7:

  Writeln('Выберите действие:');

  writeln('1)Сложение');

  writeln('2)Вычитание');

  writeln('3)Умножение');

  writeln('4)Деление');

  writeln('5)Возведение в степень');

  writeln('');

  8:

  write('Выбор >>> ');

  readln(x);

  writeln('');

  case x of

    1:

      begin

        write('Введите количество слагаемых >>> ');

        readln(m);

        writeln('');

        s := 0;

        setlength(a, m);

        for i := 0 to m - 1 do

        begin

          write('Введите слагаемое № ', i + 1, ' >>> ');

          readln(a[i]);

          s := s + a[i];

        end;

        writeln('');

        write(a[0]);

        for i := 1 to m - 1 do

          write(' + ', a[i]);

        write(' = ', s);

        writeln('');

        writeln('');

        1:

        Writeln('Выберите действие:');

        writeln('1)Заново');

        writeln('2)Выйти');

        writeln('');       

        write('Выбор >>> ');

        readln(n);

        case n of

          1:

            begin

              writeln('');

              writeln('');

              goto 7;

            end;

          2: exit

        else

          begin

            writeln('');

            writeln('Ошибка!');

            writeln('Попробуйте снова!');

            writeln('');

            goto 1;

          end;

        end;

      end;

    2:

      begin

        write('Введите количество элементов >>> ');

        readln(m);

        writeln('');

        s := 0;

        setlength(a, m);

        write('Введите уменьшаемое >>> ');

        readln(a[0]);     

        for i := 1 to m - 1 do

        begin

          write('Введите вычитаемое № ', i, ' >>> ');

          readln(a[i]);         

        end;

        writeln('');

        write(a[0]);

        s := a[0];

        for i := 1 to m - 1 do

        begin

          s := s - a[i];

          write(' - ', a[i]);

        end;

        write(' = ', s);

        writeln('');

        writeln('');

        2:

        Writeln('Выберите действие:');

        writeln('1)Заново');

        writeln('2)Выйти');

        writeln('');       

        write('Выбор >>> ');

        readln(n);

        case n of

          1:

            begin

              writeln('');

              writeln('');

              goto 7;

            end;

          2: exit

        else

          begin

            writeln('');

            writeln('Ошибка!');

            writeln('Попробуйте снова!');

            writeln('');

            goto 2;

          end;

        end;              

      end;

    3:

      begin

        write('Введите количество множителей >>> ');

        readln(m);

        writeln('');

        s := 1;

        setlength(a, m);

        for i := 0 to m - 1 do

        begin

          write('Введите множитель № ', i + 1, ' >>> ');

          readln(a[i]);

          s := s * a[i];

        end;

        writeln('');

        write(a[0]);

        for i := 1 to m - 1 do

          write(' * ', a[i]);

        write(' = ', s);

        writeln('');

        writeln('');

        3:

        Writeln('Выберите действие:');

        writeln('1)Заново');

        writeln('2)Выйти');

        writeln('');       

        write('Выбор >>> ');

        readln(n);

        case n of

          1:

            begin

              writeln('');

              writeln('');

              goto 7;

            end;

          2: exit

        else

          begin

            writeln('');

            writeln('Ошибка!');

            writeln('Попробуйте снова!');

            writeln('');

            goto 3;

          end;

        end;             

      end;

    4:

      begin

        write('Введите количество элементов >>> ');

        readln(m);

        writeln('');

        s := 0;

        setlength(a, m);

        write('Введите делимое >>> ');

        readln(a[0]);     

        for i := 1 to m - 1 do

        begin

          9:

          write('Введите делитель № ', i, ' >>> ');

          readln(a[i]);

          if a[i] = 0 then

          begin

            writeln('Делить на 0 нельзя!');

            goto 9;

          end;

        end;

        writeln('');

        write(a[0]);

        s := a[0];

        for i := 1 to m - 1 do

        begin

          s := s / a[i];

          write(' / ', a[i]);

        end;

        write(' = ', s);

        writeln('');

        writeln('');

        4:

        Writeln('Выберите действие:');

        writeln('1)Заново');

        writeln('2)Выйти');

        writeln('');       

        write('Выбор >>> ');

        readln(n);

        case n of

          1:

            begin

              writeln('');

              writeln('');

              goto 7;

            end;

          2: exit

        else

          begin

            writeln('');

            writeln('Ошибка!');

            writeln('Попробуйте снова!');

            writeln('');

            goto 4;

          end;

        end;    

      end;

    5:

      begin

        write('Введите число которое требуется возвести в степень >>> ');

        readln(k);

        write('Введите необходимую степень >>> ');

        readln(m);

        writeln('');

        s := Exp(m * Ln(k));       

        writeln('');

        writeln(k, '^', m, ' = ', s);

        writeln('');

        writeln('');

        5:

        Writeln('Выберите действие:');

        writeln('1)Заново');

        writeln('2)Выйти');

        writeln('');       

        write('Выбор >>> ');

        readln(n);

        case n of

          1:

            begin

              writeln('');

              writeln('');

              goto 7;

            end;

          2: exit

        else

          begin

            writeln('');

            writeln('Ошибка!');

            writeln('Попробуйте снова!');

            writeln('');

            goto 5;

          end;

        end;         

      end

  else

    begin

      writeln('');

      writeln('Ошибка!');

      writeln('Попробуйте снова!');

      writeln('');

      goto 8;

    end;

  end; 

end.