Строго на языке паскаль пожалуйста!Дана действительная матрица размера n на m. Получить последовательностьb1, b2,..., bn,где bk-это произведение квадратов тех элементовk-ойстроки,модуликоторыхпринадлежатотрезку [1,1.5].

const
  LIM=2; W=8; D=2; n=5; m=5; { n строк, m столбцов }
var
  a: array [1..n,1..m] of real;
  p: real;
  h: boolean;
  i, j: integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=LIM*Random;
      Write(a[i,j]:W:D);
    end; WriteLn;
  end;
  WriteLn('B=');
  for i:=1 to n do begin
    p:=1; h:=false;
    for j:=1 to m do
      if (abs(a[i,j])>=1) and (abs(a[i,j])<=1.5) then begin
        p:=p*sqr(a[i,j]); h:=true;
      end;
    if h then Write(p:W:D) else Write('?':W);
  end; WriteLn;
  Write('Нажмите ENTER...'); ReadLn;
end.