Обчислити загальний опўр двох провўднўкўв з врахуванням тўпу ∙х з'їднання (паралельне або послўдовне).
    Ознакою типу з'їднання будемо рахувати значення величини
        a=  0 при паралельному з'їднаннў
            1 при послўдовному з'їднаннў
    алг опўр (дўйсн R ,R ,a,R)
      арг R ,R ,a
      рез R
    поч
      якщо a=0
        то R:=R *R /(R +R )
        ўнакше R:=R +R
        все
    кўн

    10 REM ОПЎР
    20 INPUT "ВВЕСТИ ЗНАЧЕННЯ R1,R2";R1,R2
    30 INPUT "ВВЕСТИ ЕИП З'ЇДНАННЯ.ПРИ ПАРАЛЕЛЬНОМУ-0,
                                   ПРИ ПОСЛЎДОВНОМУ-1";A
    40 IF A=0 THEN R=R1*R2/(R2+R1) ELSE R=R1+R2
    50 PRINT "R=";R
    60 END
                              Початок

                              R ,R =,a

                         так      a=0      нў

               R:=R *R /(R +R )            R:=R +R


                                R

                             Кўнець