program pascal penghitung rangkaian

program penghitung_rangkaian;

Uses wincrt;

var

r1, r2, r3, st, pt: real;

pil:integer;

begin

     clrscr;

write(‘Masukkan R1 =’);readln(r1);

write(‘Masukkan R2 =’);readln(r2);

write(‘Masukkan R3 =’);readln(r3);

write(‘Tekan 1 untuk seri atau tekan 2 untuk pararel ?’);

readln(pil);

if pil=1 then

begin

             st:=r1+r2+r3;

             writeln(‘Total Rangkaian Serinya = ’,st:0:2);

end;

else

begin

             pt:= (r1*r2*r3)/(r1*r2+r1*r3+r2*r3);

             writeln(‘Total Rangkaian Pararelnya = ’,pt:0:2);

end;

readln(pil);

                       end.