Дан массив C(17). Определить кол во элементов кратного 11

var c:array[1..17] of integer;i,k:integer;beginfor i:=1 to 17 do read(c[i]);k:=0;for i:=1 to 17 doif c[i] mod 11 = 0 then k:=k+1;writeln('Количество элементов кратных 11 = ', k);end.