Program naconecto;
const n=5;
var
A:array[1..n,1..n] of integer;
sum,poz,i,j:integer;
BEGIN
randomize;
for i:=1 to n do
  begin
    for j:=1 to 1 do
      begin
        a[i,j]:=random(-100,100);
        sum:=sum+1;
        if a[i,j]>=0 then
          begin
            poz:=poz+1;
          end;
      end;
  end;
  writeln('cyMMa=',sum);
  writeln('noJlo)|(uTeJlbHbIe=',poz);
END.