program Keplet_6;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
i,n,w,x:byte;
y,z:extended;

begin

writeln('1: Ellenallasok soros/parhuzamos kapcsolasa');
writeln('2: ');
writeln('3: ');
writeln('4: ');
writeln('5: ');
writeln('6: ');
writeln('7: ');
writeln('8:');
writeln('9:');
writeln('10:');
writeln('11:');
writeln('12:');
writeln('13:');

writeln('');
write('Valassz egy menupontot: '); read(w);
while w>1 do begin write('Meg nincs ilyen menupont!'); read(w); writeln(''); end;

///////////////////////////
//Ellenallat soros/parh.//
//////////////////////////

if w=1 then begin
    writeln('1 - Ellenallasok soros/parhuzamos kapcsolasa');
    writeln('');
    writeln('1: Soros kapcsolas');
    writeln('2: Parhuzamos kapcsolas');
    readln(x); while x>2 do begin writeln('nincs ilyen menupont...'); readln(x); end;
 end;

    if x=1 then begin
      writeln('1 - Soros kapcsolas');
      writeln('Hany ellenallas van sorbakotve?'); readln(n);
      writeln('Add meg az ellenallasok ertekeit! (mindegyiket uj sorba keri a program)');
        for i:= 1 to n do begin
          readln(y);
          z:=z+y;
        end;
      writeln('Osszertek = ', z, ' ohm');
    end;

    if x=2 then begin
      writeln('2 - Parhuzamos kapcsolas');
      writeln('Hany ellenallas van parh. kotve?'); readln(n);
      writeln('Add meg az ellenallasok ertekeit! (mindegyiket uj sorba keri a program)');
        for i:= 1 to n do begin
          readln(y);
          z:=z+1/y;
        end;
       writeln('Osszertek = ', 1/z , ' ohm');
    end;

readln;
end.