program _;
uses CRT;
var
a : array [1..10, 1..10] of integer;
i, n, x, j,k,m : integer;
begin
clrscr;
x:=0;
k:=0;
write ('vvedite kolichestvo strok = ');
readln (n);
write ('vvedite kolichestvo stolbcov = ');
readln (m);
clrscr;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      writeln ('vvedit znachennja ',j+k,' elementa');
      readln (a[i,j]);
      if a[i,j] >0 then x:=x+1;
    end;
    k:=k+m;
  end;

    for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        write (a[i,j],' ');
      end;
      writeln;
    end;
writeln;
writeln ('kolichestvo polojitelnih elementov = ', x);
readln;
end.