Question

СРОЧНО НА ПАСКАЛЕ!!!

Answer 1

program nchnon1;

uses

crt;

var

i, n, a, k: integer;

begin

readln(n);

k := 0;

for i := 1 to n do

begin

readln(a);

if ((a mod 2) <> 0) and ((a mod 10) <> 1) then

k := k + 1 ;

end;

writeln;

writeln(k);

readln;

end.