Найдите радиус, обеспечивающий требуемое сопротивление заземления

VAR R1,r,G,h,d:real;                                           
begin                                                                     
 write('R1='); readln(R1);                                               
 write('G='); readln(G);                                                 
 write('h='); readln(h);                                                 
 write('d='); readln(d);                                                 
 
             R1:=1/(4*sqr(3.14)*G*r)*(3.14*r/h+ln(16*r/d));                          
 writeln(r);       readln;                                              end.

 r:=1/(4*sqr(3.14)*G*r)*(3.14*r/h+ln(16*r1/d));

r:=1/(4*sqr(3.14)*G*r1)*(3.14*r1/h+ln(16*r1/d));

uses crt;
const h=1.2;
      d=0.03;
      g=0.031;
      s=17;
function F(r:real):real;
begin
F:=(pi*r/h+ln(16*r/d))/(4*pi*pi*r*g);
end;
var r,e,x:real;
begin
clrscr;
e:=0.0001;
r:=e;
while abs(s-F(r))>10*e do
r:=r+e;
write('r=',r:0:4,' R=',F(r):0:4);
readln
end.

uses crt;
const h=1.2;
      d=0.03;
      g=0.031;
      s=17;
function F(r:real):real;
begin
F:=(pi*r/h+ln(16*r/d))/(4*pi*pi*r*g);
end;
var r,e,x:real;
begin
clrscr;
e:=0.0001;
r:=e;
while abs(s-F(r))>10*e do
 begin
  r:=r+e;
  if r>=h then
   begin
    write('При r<h данное сопротивление не получится');
    readln;
    exit;
   end;
 end;
write('r=',r:0:4,' R=',F(r):0:4);
readln
end.