Const
 R1=10.0;
 R2=14.0;
 R3=20.0;
 R4=10.0;
 R5=15.0;
 R6=17.0;
 R7=20.0;
 R8=10.0;
 R9=19.0;
  U=16.0;

Function S(Rs1,Rs2:Real):Real;
begin
 S:=Rs1*Rs2/(Rs1+Rs2);
end;

Var
 I,P,R,I1,I2,I3,I4,I5,I6,I7,I8,I9,Isum,
 P1,P2,P3,P4,P5,P6,P7,P8,P9,
 U3246798,U15,
 R79,R6798,R46798,R246798,R3246798,R15:Real;

Begin
 R79:=S(R7,R9);
 R6798:=R6+R8+R79;
 R46798:=S(R4,R6798);
 R246798:=R2+R46798;
 R3246798:=S(R3,R246798);
 R15:=S(R1,R5);
 R:=R15+R3246798;
 I:=U/R;
 P:=U*I;
 U3246798:=I*R3246798;
 U15:=I*R15;
 I1:=I*R5/(R1+R5);
 I5:=I*R1/(R1+R5);
 I3:=I*R246798/(R3+R246798);
 I2:=I*R3/(R3+R246798);
 I4:=I2*R6798/(R4+R6798);
 I6:=I2*R4/(R4+R6798);
 I8:=I6;
 I7:=I6*R9/(R7+R9);
 I9:=I6*R7/(R7+R9);
 P1:=I1*I1*R1;
 P2:=I2*I2*R2;
 P3:=I3*I3*R3;
 P4:=I4*I4*R4;
 P5:=I5*I5*R5;
 P6:=I6*I6*R6;
 P7:=I7*I7*R7;
 P8:=I8*I8*R8;
 P9:=I9*I9*R9;
 Writeln;
 Writeln(' R= ',R:0:3,' Ohm');
 Writeln(' I= ',I:0:3,' A');
 Writeln(' P= ',P:0:3,' W');
 Writeln;
 Writeln(' I1=',I1:0:3,' A     P1= ',P1:0:3,' W');
 Writeln(' I2=',I2:0:3,' A     P2= ',P2:0:3,' W');
 Writeln(' I3=',I3:0:3,' A     P3= ',P3:0:3,' W');
 Writeln(' I4=',I4:0:3,' A     P4= ',P4:0:3,' W');
 Writeln(' I5=',I5:0:3,' A     P5= ',P5:0:3,' W');
 Writeln(' I6=',I6:0:3,' A     P6= ',P6:0:3,' W');
 Writeln(' I7=',I7:0:3,' A     P7= ',P7:0:3,' W');
 Writeln(' I8=',I8:0:3,' A     P8= ',P8:0:3,' W');
 Writeln(' I9=',I9:0:3,' A     P9= ',P9:0:3,' W');
 Writeln;
 Writeln(' Psum=P1+P2+P3+P4+P5+P6+P7+P8+P9= ',(P1+P2+P3+P4+P5+P6+P7+P8+P9):0:3,' W');
 Readln
End.