Найти сумму всех четных элементов массива, максимальный элемент и его номер, количество элементов, кратных трем

var
 arr: array[1..100] of integer;
 n, i, max, sum, cnt: integer;
begin
 cnt:=0; sum:=0; max:=1;
 readln(n);
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
     if arr[i] mod 2 = 0 then sum:=sum+arr[i];
      if arr[i] > arr[max] then max:=i;
       if arr[i] mod 3 = 0 then inc(cnt);
   end;
 writeln;
 writeln('Сумма четных элементов: ', sum, ';');
 writeln('Максимальный элемент: ', arr[max], '; Его индекс: ', max, ';');
 writeln('Кол-во элементво кратных 3: ', cnt, ';');
end.

Uses crt;
Var
  a: array[1..100] of integer;
  i,n,max,count: byte;
  sum: integer;
 
Begin
  Clrscr;
  Randomize;
  Write('введите количество элементов: ');
  Readln(n);
  For i:=1 to n do
    begin
      a[i]:=random(101)-50;
      Write(a[i],' ');
    end;
  Writeln;
 
  max:=1;
  For i:=1 to n do
    begin
      If a[i] mod 2 = 0 then inc(sum,a[i]); //сумма четных элементов
      If a[i]>a[max] then max:=i; //индекс максимального элемента
      If a[i] mod 3 = 0 then inc(count); //количество элементов, кратных трем
    end;
 
  Writeln('Сумма четных элементов массива: ',sum);
  Writeln('Максимальный элемен: ',a[max],' его номер: ',max);
  Writeln('Количество элементов, кратных трем: ',count);
  Readkey
End.

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j:byte;
    b,c,max:integer;
begin
clrscr;
  for i:=1 to n do readln(a[i]);
  b:=0;
  for i:=1 to n do if i mod 2=0 then b:=b+a[i];
  max:=a[1];
  for i:=2 to n do if a[i]>max then
   begin
     j:=i;
     max:=a[i];
   end;
  c:=0;
  for i:=1 to n do if a[i] mod 3=0 then c:=c+1;
  writeln(b:2,max:2,j:2,c:2);
readln;
end.