program picaso; uses crt;
type matrice=array[1..10,1..10] of integer;
var i,j,n,m,k:integer;
    a:matrice;
procedure rea(var a:matrice);
begin
    writeln('n: ');readln(n);
    writeln('m: ');readln(m);
    writeln('ведите ',n*m,' элементов');
    for i:=1 to m do
        for j:=1 to n do
        begin
            write('A[',i,',',j,']=');
            readln(A[i,j]);
        end;    
end;
procedure writ;
begin
    writeln('Массив A');
    for i:=1 to m do
    begin
        for j:=1 to n do
            write(A[i,j],'    ');
            writeln;
    end;
end;
procedure calc(a:matrice );
begin
    
    for j:=1 to n do
    begin
    k:=0;
        for i:=1 to m do
            
            if a[i,j] > 0 then inc(k);
            writeln('столбец :',j,' положительные элементы : ',k);
    end;
end;
begin clrscr;
    rea(a);
    writ;
    calc(a);
    readln;
end.