в массиве 20 целых элементов заданных с клавиатуры найти сумму элементов массива кратных семи и оканчивающихся на цифру 1

constN = 20;typeTmas = array [1..N] of longint;varm: Tmas;i, sum: longint;beginsum := 0;for i := 1 to N do beginreadln(m[i]);if (m[i] mod 7 = 0) and (m[i] mod 10 = 1) thensum := sum + m[i] ;end;writeln(sum);end.пж как лучший