program Impedance;
var R,L,C,Z,f,Xl,Xc:real;
begin
R:=1500;
L:=500;
C:=18;
f:=100000;
write('R = ');
writeln(R:5:2);
write('L = ');
writeln(L:5:2);
write('C = ');
writeln(C:5:2);
write('f = ');
writeln(f:5:2);
L:=L*0.001;
C:=C/1000000000000;
Xl:=6.28*f*L;
Z:=sqrt(R*R+Xl*Xl);
write('Z = ');
writeln(Z:5:2);
end.