Паскаль, написать маленькую программу

VarN,k,i:longint;A:array [1..1000] of longint;BeginReadln(n);K:=0;For i:=1 to n doReadln(a[i]);For i:=1 to n doIf (a[i] mod 6 = 0) and (a[i] mod 10 = 4) thenK:=k+1;Writeln(k);End.