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

Удельное электрическое сопротивление никелина 0,40 Ом·мм²/м (или 0,4 * Ом м²/м).
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.