Составить алгоритм и программу определения длины никелированного провода диаметром d, который используется для изготовления реостата, имеющего сопротивление R. Удельное сопротивление никелина

Удельное электрическое сопротивление никелина 0,40 Ом·мм²/м (или 0,4 * [latex] 10^{-6} [/latex] Ом м²/м). R=ρl/S => l=SR/ρ S=Π*R^2=Π*(d/2)^2=Π*d^2/4 l=(Π*d^2*R)/(4ρ) Теперь сама программа var r,d,l:real; begin writeln('Введите сопротивление проводника в Омах'); read(r); writeln('Введите диаметр проводника в миллиметрах'); read(d); l:=(3.14*sqr(d)*r)/(4*0.4); writeln(l:0:2); end.