Дан одномерный целочисленный массив из n чисел. найти количество четных элементов кратных к трем и семиблок схема не нужна) 15

Var n,k,i:integer;
a:array[1..1000] of integer;

begin
write('Введите кол-во элементов: '); readln(n);

writeln('Введите элементы');
for i:=1 to n do
read(a[i]);

k:=0;
for i:=1 to n do
if not odd(a[i]) then 
if (a[i] mod 7 = 0) or (a[i] mod 3 = 0) then inc(k);

writeln('Кол-во четных элементов кратных 3 или 7 : ',k);
end.

Угол - это часть плоскости, ограниченная двумя лучами, выходящими из одной точки.

Точка называется вершиной угла, а лучи - сторонами угла.

Если стороны угла образуют прямую (являются дополнительными лучами), то угол называется развернутым.

Углы измеряются в градусах. Градус - это 1/180 часть развернутого угла.

Виды углов в зависимости от градусной меры:

Если градусная мера угла меньше 90°, то угол острый.

Если градусная мера угла равна 90°, то угол прямой.

Если градусная мера угла больше 90°, но меньше 180°,  то угол тупой.

Если градусная мера угла равна 180°, то угол развернутый.

Два угла называются вертикальными, если их стороны являются дополнительными лучами.

Свойство вертикальных углов: вертикальные углы равны.

Два угла называются смежными, если одна сторона у них общая, а две другие являются дополнительными лучами.

Свойство смежных углов: сумма смежных углов равна 180°.

Биссектриса угла - это луч с началом в вершине угла, который делит угол на две равные части.

Uses graphabc;

var
    i, c: integer;
    ar: array[1..5]of integer;

begin
  for i := 1 to 5 do read(ar[i]);
  window.IsFixedSize := true;
  window.Init(0, 0, 800, 800, clDarkGray);
  window.CenterOnScreen;
  SetFontSize(32);
  for i := 1 to 5 do c := c + ar[i].ToString.Length;
  for i := 1 to 7 do writeln;
  write(' ':33 - c);
  for i := 1 to 5 do
  begin
    if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then
     begin
      SetFontColor(clred);
      write(ar[i]);
    end
    else if(ar[i] mod 10 = 0) then
      begin
      SetFontColor(clblue);
      write(ar[i]);
    end
    else if(ar[i] mod 2 <> 0) then
    begin
      SetFontColor(clyellow);
      write(ar[i]);
    end
  end;
 end.