Помогите,ребят!Срочно нужно!!!

Если нужно на Pascal, то вот:

program 1;

var a, n, i, r: integer;

begin

r:= 0;

readln (n);

for i:=1 to n do

begin

readln(a);

if (a mod 2 <>0) and (a mod 10 <> 1) then r:=r+1;

end;

writeln (r);

end.