function count (x:integer; a:t_mas):integer ;
  var m,i,j,z,k:integer ;
  begin
    m:=0;
    k := 0;
    z := 1;
    for i:=0 to n do begin
     for j := 1 to a[i].s-k do
      z := z * x;
     m += z*a[i].a;
     k := a[i].s;
    end;
    count:=m;
  end;