Построить график зависимости силы взаимодействия двух зарядов от расстояние межу ними в диапазоне

program Grfic;
uses graphabc;
var q1,q2,k,F,p,r:real; s:STRING;
begin
Line (100,350,550,350);
Line (545,355,550,350);
Line (545,355,550,350);
textout (550,350,'r,cм');
Line (100,100,100,350);
Line (95,105,100,100);
Line (105,105,100,100);
textout ( 60,105,'F,H');
 
F:=350;
r:=100;
q1:=5;
q2:=3;
 
 While r<=350 do begin
r:=100+k;
moveto(round(r),round(F));
F:=350-(k*(q1*q2)/r*r);
k:=k+1;
r:=100+k;
lineto(round(r),round(F));

uses graphabc;
const e=8.85e-12;
      q1=5e-8;
      q2=3e-8;
function F(r:real):real;
begin
F:=q1*q2/4/pi/e/r/r;
end;
var r,mx,my:real;
    x0,y0,i:integer;
begin
x0:=50;
y0:=windowheight-30;
Line (x0,y0,windowwidth-35,y0);
Line (windowwidth-35,y0,windowwidth-45,y0-5);
Line (windowwidth-35,y0,windowwidth-45,y0+5);
textout(windowwidth-30,y0-10,'r, м');
Line(x0,y0,x0,20);
Line(x0,20,x0-5,30);
Line(x0,20,x0+5,30);
textout(x0-15,0,'F, Кл');
mx:=(windowwidth-100)/0.1;
my:=(windowheight-80)/F(0.01);
for i:=1 to 14 do
 begin
  if i<11 then
   begin
    line(x0+round(i*mx/100),y0-3,x0+round(i*mx/100),y0+3);
    textout(x0+round(i*mx/100),y0+10,floattostr(i/100));
   end;
  line(x0-3,y0-round(i*my/100),x0+3,y0-round(i*my/100));
  textout(x0-30,y0-round(i*my/100),floattostr(i/1000))
 end;
r:=0.01;
setpencolor(clRed);
moveto(x0+round(r*mx),y0-round(F(r)*my));
while r<=0.1 do
 begin
  lineto(x0+round(r*mx),y0-round(F(r)*my));
  r:=r+0.001;
 end;
end.