Составить текст программы на языке Паскаль, содержащий:

var i,j:integer;
procedure zap_manual(var A:array[1..20,1..20]of integer; n:integer;m:integer);
begin
  for i:=1 to n do
    for j:=1 to m do read(a[i,j]);
end;
procedure zap_random(var A:array[1..20,1..20]of integer; n:integer;m:integer);
begin
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=random(100)-45;
end;
procedure view_mass(A:array[1..20,1..20]of integer; n:integer;m:integer);
begin
  for i:=1 to n do
    begin
      writeln();
      for j:=1 to m do
        write(a[i,j]:3);
    end;
end;
function task(A:array[1..20,1..20]of integer; n:integer;m:integer):integer;
var indexI,indexJ,s:integer;
begin
  task:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]=0 then
        begin
          indexI:=i;indexj:=J;
        end;
  for j:=indexJ to m do if abs(a[indexI,j])<=25 then s:=s+a[indexI,j];
  for i:=indexI+1 to n do
    for j:=1 to m do if abs(a[indexI,j])<=25 then s:=s+a[i,j];
  task:=s;
end;
var a:array[1..20,1..20]of integer;
    n,m:integer;
begin
write('vvedite razmernost NxM=');read(n,m);
write('Zapolnenie v ruchnuy - vvedite 1, zapolnenie slucaino - vvedite 2->');
read(i);
if i=1 then zap_manual(A,n,m) else zap_random(A,n,m);
writeln('Vyvod massiva:');
view_mass(A,n,m);
writeln;
write('summa=',task(A,n,m));
end.