Определить максимальное значение среди кратных 3 элементов массива

var
  i, max: word;
  A: array[1..10] of integer;
  
begin
  max := 0;
  randomize;
  for i := 1 to 10 do
  begin
    a[i] := random(40);
    write(a[i], ' ');
    if a[i] mod 3 = 0 then
      if max < a[i] then max := a[i] 
  end;
  writeln;
  writeln;
  writeln('Наибольшее число кратное 3: ', max);
end.

var
  i, max, k: word;
  A: array[1..10] of integer;
  
begin
  max := 0;
  randomize;
  for i := 1 to 10 do
  begin
    a[i] := random(40);
    write(a[i], ' ');
    if max < a[i] then begin max := a[i]; k := i end 
  end;
  writeln;
  writeln;
  writeln('Максимальное число: ', max);
  writeln('Номер максимального числа: ', k);
end.

var
  i, max: word;
  A: array[1..10] of integer;
  
begin
  max := 0;
  writeln('Введите массив из 10 целых чисел:');
  writeln;
  for i := 1 to 10 do
  begin
    read(a[i]);
    if a[i] mod 3 = 0 then
      if max < a[i] then max := a[i] 
  end;  
  writeln;
  writeln('Наибольшее число кратное 3: ', max);
end.

var
  i, max, k: word;
  A: array[1..10] of integer;
  
begin
  max := 0;
  writeln('Введите массив из 10 целых чисел:');
  writeln;
  for i := 1 to 10 do
  begin
    read(a[i]);
    if max < a[i] then begin max := a[i]; k := i end 
  end;  
  writeln;
  writeln('Максимальное число: ', max);
  writeln('Номер максимального числа: ', k);
end.