Вычеслите: 1) 1vX&0
2) X&X&1

1)

1v1&0=1

1v0&0=1

2)

0&0&1=0

0&1&1=0

1&0&1=0

1&1&1=1

напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.