Помогите пожалуйсто! Срочно надо!

var n,na,i,a,chislo: integer; begin na: =0; writeln ('Введите количество чисел'); readln (n); writeln ('Введите число, на которое нужно делить'); readln (chislo); for i: =1 to n do begin writeln ('Введите число'); readln (a); if a mod chislo=2 then na: =na+1; end; writeln ('Количество чисел, которые дают в остатке 2 равно ',na); end.