Помогите решить...........

Question

Помогите решить...........

---

Answer 1

Uses  System.Collections.Generic;

var
  n, i: byte;
  j: integer;
  l: List := new List();

begin
  write('n = '); readln(n);
  for i := 1 to n do
  begin
    readln(j);
    if ((((j mod 5) = 0)) and ((j mod 10) = 0)) then l.Add(j);
  end;
  writeln(l.Count);
end.