помогите пожалуйста, есть готовая программа для вычисления потенциала поля, но она не работает в ПаскальАВС. помогите преобразовать ее. буду очень благодарна!
program potenz;
Uses crt, graphABC;
Var r1,r2,r3,x1,x2,x3,y1,y2,y3, fi, q1,q2,q3:real;
Gd,Gm, i,j:integer;
begin
Gd:=Detect; InitGraph(Gd, Gm, 'c:\bp\bgi\');
q1:=15; q2:=-23; q3:=8;
x1:=180.5; y1:=180.5; x2:=400.5; y2:=220.5; x3:=240.5; y3:=340.5;
circle(round(x1),round(y1),3); circle(round(x2),round(y2),3);
For i:=0 to 640 do For j:=0 to 480 do
begin
r1:=sqrt(sqr(x1-i)+sqr(y1-j)); r2:=sqrt(sqr(x2-i)+sqr(y2-j));
R3:=sqrt(sqr(x3-i)+sqr(y3-j)); fi:=q1/r1+q2/r2+q3/r3;
{putpixel(i,j,round((fi+1)*20));}
if round(fi/0/05)-fi/0.05<0.002 then putpixel(i,j,15);
end;
Repeat until Keypressed; CloseCraph;
end.