Помогите Пожалуйста!!Буду очень Благодарна!!♥
Придумать задачу на подсчет элементов по определенному признаку введенных с клавиатуры. (В Паскале Abc)

var a,b,i,k:integerbegin readln(a); for i:=1 to a do begin  readln(b); if b>0 then   k:=k+1;end;writeln('кол-во положительных чисел = ',k);end.В этой программе считается сумма положительных чисел среди введенных