type t1 = array[1..10] of integer; var m : t1; m1 : array [0..19] of real;
for i:=0 to n for j:=0 to m begin if a[i,j]=>0 then pol=pol+1 else otr=otr+1; end;