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

Question

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

---

Answer 1

Var
N,k,i:longint;
A:array [1..1000] of longint;
Begin
Readln(n);
K:=0;
For i:=1 to n do
Readln(a[i]);
For i:=1 to n do
If (a[i] mod 6 = 0) and (a[i] mod 10 = 4) then
K:=k+1;
Writeln(k);
End.