В связи невозможностью вычисления через элементарные функции указанный интеграл может быть представлен рядом. Вычислить сумму ряда
исходные данные x=7, EPS=10^-4

Попробуй так:
const  nmax=100; var   a: array[1..nmax,1..nmax] of integer;   i,j,m,n,min,max,i_max,j_max,i_min,j_min,tmp: integer; begin   randomize;   write('Введите размеры массива m, n: ');   readln(m,n);   writeln('Исходная матрица:');   for i:=1 to m do   begin     for j:=1 to n do     begin       a[i,j]:=random(99)+1;       write(a[i,j]:4);     end;     writeln;   end;   writeln;     min:=a[1,1]; max:=a[1,1];   i_min:=1; j_min:=1; i_max:=1; j_max:=1;     for i:=1 to m do     for j:=1 to n do     begin       if a[i,j]>max then       begin         max:=a[i,j];         i_max:=i;         j_max:=j;       end;       if a[i,j]<min then       begin         min:=a[i,j];         i_min:=i;         j_min:=j;       end;     end;     writeln('Максимальный элемент: ',max,'[',i_max,',',j_max,']');   writeln('Минимальный элемент: ',min,'[',i_min,',',j_min,']');   tmp:=a[i_min,j_min];   a[i_min,j_min]:=a[i_max,j_max];   a[i_max,j_max]:=tmp;     writeln('Полученная матрица:');   for i:=1 to m do   begin     for j:=1 to n do       write(a[i,j]:4);     writeln;   end;   readln; end.

ВЫПОЛНЕНИЕ - активное состояние процесса, во время которого процесс обладает всеми необходимыми ресурсами и непосредственно выполняется процессором;
ОЖИДАНИЕ - пассивное состояние процесса, процесс заблокирован, он не может выполняться по своим внутренним причинам, он ждет осуществления некоторого события, например, завершения операции ввода-вывода, получения сообщения от другого процесса, освобождения какого-либо необходимого ему ресурса;
ГОТОВНОСТЬ - также пассивное состояние процесса, но в этом случае процесс заблокирован в связи с внешними по отношению к нему обстоятельствами: процесс имеет все требуемые для него ресурсы, он готов выполняться, однако процессор занят выполнением другого процесса.