Помогите пожалуйстаДана последовательность из N целых чисел найти количество

begin

 var ss := ReadSeqInteger(ReadlnInteger('n ='));

 ss.Count(x -gt; (x gt; 0) and (x mod 5 = 0)).Println;

end.

var i,b,n,k:integer;

begin

k:=0;

readln(n);

for i:=1 to n do begin readln(b); if((bgt;0)and(b mod 5 = 0)) then k:=k+1; end;

writeln(k);

end.