Анализ и выполнение команд осуществляет(ют): 1)процессор 2)устройство ввода 3)устройства вывода 4)устройство информации

Анализ и выполнение команд осуществляет: 1)процессор

Смотри на скриншот я сделал просто не хочу чтоб форматировка текста портилась.Все работает!
const n=3;m=4;
var a:array [1..n,1..m] of integer;    i,j,k,max:Integer;    ind:array [0..1] of Integer=(1,1);
begin 
Randomize; 
 for i:=Low(a) to High(a) do 
 for j:=Low(a) to High(a[1]) do 
   a[i,j]:=Random(100); 
for i:=Low(a) to High(a) do 
  begin   
  writeln;   
for j:=Low(a) to High(a[1]) do 
 write(a[i,j]:3); 
 end; 
 max:=a[1,1]; 
 for i:=Low(a) to High(a) do   
for j:=Low(a) to High(a[1]) do
    if a[i,j]> max then   
  begin 
     max:=a[i,j];   
    ind[0]:=i;     
  ind[1]:=j;     
end;     
writeln; 
Writeln(' Max element: ',max);
 Write(' Index: '); 
 for i:=0 to 1 do 
 write(ind[i],' ');
 Readln;
end. 

Считаем, что в нашей реализации языка Pascal нет готовой функции для арксинуса и опишем арксинус на основе известного тригонометрического соотношения:

Тогда

Область допустимых значений: |c|<1, a≠0

function arcsin(x: real): real;
begin
  arcsin := arctan(x / sqrt(1 - sqr(x)))
end;

var
  a, b, c, x: real;

begin
  Write('Введите через пробел значения a,b,c: ');
  Readln(a, b, c);
  if (c >= 1) then Writeln('Решения нет, c>=1')
  else if a = 0 then Writeln('Решения нет, a=0)')
  else Writeln('x=', arcsin(c) / sqrt(1 - sqr(x)):0:5)
end.

Тестовое решение:

Введите через пробел значения a,b,c: 3.25 -1.7 0.146
x=0.14652