{* Задача 433 *}

Unit ZADACH433;
Interface
Implementation
Begin
 writeln('Определите концентрацию электронов в кремнии при 300К содержащем 21011см–3 атомов донорной примеси (Nd) и 11011 см–3 атомов акцепторной примеси (Nа), используя выражение');
End.

Program zadach433;

Uses zadach433.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Function sqkn : real;
Const {* Предопределенные *}
  n1 = 1.45e10; {sobstvennay koncentracia nositeley, [sm-3]]}
Begin
  sqkn := sqr(n1)
End;
Procedure concentr;
Var {concentracia atomov donornoy primesi, [sm-3]}
  n  : Array [1..10] Of real; {concentracia electronov}
  i  : integer;
  Na : real; {concentracia atomov akceptornoy primesi, [sm-3]}
Begin
  Writeln('  *******************Concentracia electronov v Si, [sm-3]****************');
  Writeln('');
  Writeln('Vvedite znachenie concentracii atomov akceptornoy primesi (poriadka 1e11)');
  Readln(Na);
  Writeln('izmenenie Nd', '      izmenenie n');
  For i := 1 To 10 Do {* Увеличиваем i от 1 до 10 с шагом 1 *}
  Begin
    Nd[i] := 2e11 * i;
    n[i] := ((Nd[i] - Na) / 2+sqrt((sqr((Nd[i] - Na) / 2) + sqkn)));
    Write(' ', Nd[i] : 3);
    Writeln('          ', n[i] : 3);
  End;
  readln; {* Ждем нажатия Enter *}
End;
Begin
  clrscr; {* Очищаем экран *}
  concentr;
End.