[Kapitoshka438]

Код:

var
  A: array [1..N, 1..M] of Double;
  X: Double;

procedure CheckMatrix(C: Double);
var
  I, J: Integer;
begin
  for I := 1 to N do
    for J := 1 to M do
      if A[I, J] > C then
        Writeln('[' + IntToStr(I) + ', ' + IntToStr(J) + ']');
end;

begin
  { ... Определить матрицу A ... }
  Readln(X);
  CheckMatrix(X);
end.