Поделитесь, , панченко в. - системный анализ, имитационное моделирование. в интернете в свободном доступе нет. в вк не нашел ( хотел узнать в этой книге (ах) про "моделирование процессов в системе g/g/3/3"

Код программы:

var a:array[1..27] of integer;

b, i, c, ind:integer;  

begin

 a[1]:= 72;

 a[2]:= 76;

 a[3]:= 92;

 a[4]:= 45;

 a[5]:= 55;

 a[6]:= 82;

 a[7]:= 46;

 a[8]:= 39;

 a[9]:= 78;

 a[10]:=50;

 a[11]:=34;  

 a[12]:=71;  

 a[13]:=44;

 a[14]:= 92;

 a[15]:= 38;

 a[16]:= 51;

 a[17]:= 6;

 a[18]:= 45;

 a[19]:= 66;

 a[20]:= 78;

 a[21]:= 19;

 a[22]:= 17;

 a[23]:= 42;

 a[24]:= 36;

 a[25]:= 34;

 a[26]:= 91;

 a[27]:= 61;

 writeln('Введите число');

 readln(b);

 if ((b >= 0) and (b <= 100)) then begin

 c:=abs(b - a[1]);

 for i:=2 to 27 do begin

   if(abs(b - a[i]) <=c) then begin

       c:=abs(b - a[i]);

       ind:=i;  

     end;

 end;

 writeln('Результат: ', a[ind]);

 end

 else

   writeln('Ошибка, число должно быть больше 0 и меньше 100');

end.

uses

   crt;

const

    max=50;

var

  a:array[1..max,1..max] of integer;

  i,j,n,s,k:integer;

begin

    writeln('wvedite razmernost matrici');

    readln(n);

    writeln('wvedite matricu ',n,' x ',n);

    for i:= 1 to n do

        begin

             for j:= 1 to n do

                 read(a[i,j]);

        end;

    s:=0;

    k:=0;

    for i:= 1 to n do

        begin

             for j:= 1 to n do

                 if (j mod 2<>0) and (i mod 2<>0) then

                    begin

                         s:=a[i,j]+s;

                         k:=k+1

                    end;

        end;

        s:=round(s/k);

        writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);

readkey

end.