1/1

var i,j,n,m,x,k,p :integer;
type matr=array [1..20,1..25] of integer;
type mass=array [1..20] of integer;
var a: matr; b:mass;

procedure z(n,m,k: integer; var a:matr;var b:mass);
var l,i,j,i1,j1:integer;
begin
 for l:=1 to k do begin
 j:=1;
 while (b[l]<>j) and (j<=n) do
 j:=j+1;

 for i1:= 1 to n do begin
 for j1:= 1 to m do
 if (i1=j-1) then a[i1,j1]:=0;
 end;
 end;
 for i:=1 to n do begin
 for j:=1 to m do
 p:=a[i,j]+p;
 end;
end;

begin
 writeln('введите длину массива');
 readln(k);
 writeln('введите массив');
 for i:=1 to k do read(b[i]);
 writeln('введите кол-во строк и столбцов');
 readln(n,m);
 for i:=1 to n do begin
 for j:=1 to m do
 read(a[i,j]);
 end;
 writeln('введенная матрица');
 for i:=1 to n do begin
 writeln;
 for j:=1 to m do
 write(' ',a[i,j]);
 end;
 writeln;
 writeln('введенный массив');
 for i:=1 to k do write(' ',b[i]);
 writeln;
 writeln('резyльтат работы');
 z(n,m,k,a,b);
 for i:=1 to n do begin
 writeln;
 for j:=1 to m do
 write(' ',a[i,j]);
 end;
 writeln('count = ',p);
end.