{Проверка начального распределения потенциалов.
Сохранение в текстовых файлах.Задан шар,радиусом 13 точек (13e-4м)
в кубе 50*50*50точек (5*5*5мм)}
program Raspred;

{$APPTYPE CONSOLE}

const
  SaveFileName1='ux.prn';
  SaveFileName2='uy.prn';
  SaveFileName3='uz.prn';
var
  U : Array[1..50, 1..50, 1..50] Of Integer;

procedure SetInitial;
 var
  i, j, k : word;
 begin
  For i:= 1 To 50 Do
   For j:= 1 To 50 Do
    For k:= 1 To 50 Do
     U[i, j, k] := 0;
  For i:= 1 To 50 Do
   For j:= 1 To 50 Do
    For k:= 1 To 50 Do
     begin
      If ((i-25) * (i-25) + (j-25) * (j-25) + (k-25) * (k-25) <= 169)Then
      U[i,j,k]:=2;
     end;
 end;{--------------------SetInitial--------------------}

procedure SaveMatrixToFile;

 const
  Tab=chr(9);
 var
  i, j, k : word;
  f : text;
 begin
 assign(f,SaveFileName1);
  rewrite(f);
 for i:=1 to 50  do
  begin
    for j:=1 to 50  do
    begin
      write(f,u[i,j,25]:3);
      if i<50 then write(f,Tab);
    end;
    writeln(f,'');
  end;
close(f);
  assign(f,SaveFileName2);
  rewrite(f);
 for i:=1 to 50  do
  begin
    for k:=1 to 50  do
    begin
      write(f,u[i,25,k]:3);
      if i<50  then write(f,Tab);
    end;
    writeln(f,'');
  end;
close(f);
  assign(f,SaveFileName3);
  rewrite(f);
 for j:=1 to 50  do
  begin
    for k:=1 to 50  do
    begin
      write(f,u[25,j,k]:3);
      if j<50  then write(f,Tab);
    end;
    writeln(f,'');
  end;
close(f);
end;{--------------------SaveMatrixToFile--------------------}

Begin
 SetInitial;
 SaveMatrixToFile;
End.