Спиши отрывок из стихотворения. Сначала прочитай памятку 1 на странице 140. И в радости, и в грусти Он всякий час со мной

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