program parallelr; uses wincrt;
var
   R1, R2, Rp: real;
begin
   write('Geef waarde R1 in ohm: ');
   read(R1);
   write('Geef waarde R2 in ohm: ');
   read(R2);
   Rp:=(R1*R2)/(R1+R2);
   write('R1 parallel aan R2 is: ', Rp:8:2, ' ohm')
end.