CODING MENGHITUNG TOTAL HAMBATAN (SERI & PARALEL) DALAM PASCAL

program total_hambatan;

uses wincrt;

var
p,r1,r2,r3: integer;
rt : real;

begin
     write('masukkan nilai r1: ');readln(r1);
     write('masukkan nilai r2: ');readln(r2);
     write('masukkan nilai r3: ');readln(r3);
     write('masukkan pilihan anda: ');readln(p);  
begin
     if p=1 then
     rt:=r1+r2+r3  
else
    if p=2 then
    rt:=(r1*r2*r3)/(r1*r2+r1*r3+r2*r3)
 
else
    write('maaf....pilihan salah,pilih 1 atau 2');
    writeln('jadi hambatannya adalah : ',rt:1:1);
 
end
end.