Перевод с Turbo Pascal на PascalABC.NET - PascalABC.NET - Ответ 7715541

uses program6;
var
a:real;
p:integer;
begin
b:=2e11;
a:=2e12;
p:=1;
IZma(h);
while b<=a do
begin
F[p]:=n(b);
C[p]:=b;
p:=p+1;
b:=b+h;
end;
Grafik;
end.

unit program6;
interface
uses graphabc;
 const
  z=16;
 var
   h,b:real;
   F,C:array[1..500] of real;
   Procedure Izma(var dt:real);
   function n(konsentration:real):real;
   procedure Grafik;
implementation
 
   procedure Izma(var  dt:real);
     begin
       write('enter the change in the concentration');
       read(dt);
     end;
   function n(konsentration:real):real;
     const
      Nd=1e11;
      T=300;
      n1=1.45e10;
      Na=1e11;
     begin
      n:=((Nd-Na)/2+sqrt((sqr((Nd-Na)/2)+sqr(n1))));
      end;
     procedure Grafik;
      const otst=100; R=2; S=6;
      Var Ky,Kx,          {Є®нд.ЇаҐ®Ўа*§®ў**Ёп Ї®«гзҐ**ле §**зҐ*Ё©        ў Є®®а¤Ё**вл}
             dy,dx,          {Ё§¬Ґ*Ґ*ЁҐ Є®®а¤Ё**в Ї® • Ё “}
             dpx,dpy:real;   {Ё§¬Ґ*Ґ*ЁҐ Є®®а¤Ё**вл Ї®¤ЇЁбЁ ®бҐ©}
             GrDriver,       {Ја*дЁзҐбЄЁ© ¤а*©ўҐа}
             grMode:integer; {Ја*дЁзҐбЄЁ© ०Ё¬}
             i,              {ЇҐаҐ¬Ґ***п жЁЄ«*}
             Xkor,Ykor,      {Є®®а¤Ё**вл Ја*дЁЄ*}
             dsy,dsx,        {Є®нд.Ї®бв஥*Ёп бҐвЄЁ}
             Lx,Ly,          {¤«Ё** ®бҐ© • Ё “}
             Xm,Ym:integer;  {¬*ЄбЁ¬*«м*®Ґ §**зҐ*ЁҐ • Ё “}
             tx,ty:string;   {бва®Є®ўлҐ ЇҐаҐ¬Ґ**лҐ}
      begin
        grDriver:=9; grMode:=2;
        InitGraphacb (grDriver,grMode,'E/Doc/kt/my labs/SCHOOL.PAC/BP');
        Xm:=GetMaxX; Ym:=GetMaxY;
        SetBkColor(15);
        SetColor(8);
        Rectangle(Otst,Otst,Xm-Otst,Ym-Otst);
 
        Lx:=Xm-2*Otst;
        Ly:=Ym-2*Otst;
        dsx:=round(Lx/S);
        dsy:=round(Ly/S);
        for i:=1 to S-1 do
        begin
         Moveto (Otst+dsx*i,Otst);
         Lineto (Otst+dsx*i,Ym-Otst);
         Moveto (Otst,Otst+dsy*i);
         Lineto (Xm-Otst,Otst+dsy*i);
        end;
 
        Moveto (Otst,Ym-Otst);
        Setcolor(1);
        Circle(Otst,Ym-Otst,R);
 
        Kx:=Lx/(C[z]-C[1]);
        dx:=h*Kx;
        Ky:=Ly/(F[z]-F[1]);
        For i:=1 to z-1 do
        begin
         dy:=(F[1]-F[i+1])*Ky;
         Xkor:=round(Otst+dx*i);
         Ykor:=round((Ym-Otst)+dy);
         LineTo (Xkor,Ykor);
         Circle (Xkor,Ykor,R);
        end;
 
        dpx:=dsx/Kx;
        dpy:=dsy/Ky;
        SetColor(3);
        for i:=0 to S do
        begin
         str((C[1]+dpx*i):4:0,tx);
         OutTextXY(Otst-20+dsx*i,Ym-Otst+20,tx);
         str((F[1]+dpy*i):10,ty);
         OutTextXY(Otst-90,Ym-Otst-dsy*i,ty);
        end;
 
        SetColor(5);
        OutTextXY(Xm-80,Ym-Otst,'Nd');
        OutTextXY(Otst-20,Otst-20,'n');
      end;
end.