Дан массив А от 1 до 7. Найти количество элементов кратных 11.

program pr_1;var a:array [1..7] of integer;c, i: integer;beginfor i:= 1 to 7 dobegina[i] := random(100);if a[i] mod 11 = 0 then c := c + 1;writeln(c)end.