В заданном массиве из N элементов найти наименьший среди элементов кратных трем - Pascal ABC

Формулировка задачи:

В заданном массиве из N элементов найти наименьший среди элементов кратных трем, расположенных до первого отрицательного.

Решение задачи: «В заданном массиве из N элементов найти наименьший среди элементов кратных трем»

Листинг программы

{В заданном массиве из N элементов найти наименьший среди элементов кратных трем, 
расположенных до первого отрицательного. }
const
  n = 50;
 
var
  a: array [1..n] of integer;
  k3, min, fn, i: integer;
 
begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(-100, 100);
    write(a[i]:4);
  end;
  fn := 0;
  for i := 1 to n do
    if a[i] < 0 then
    begin
      fn := i;
      break;
    end;
  writeln;    
  k3 := 0;
  for i := 1 to fn - 1 do  
    if (a[i] mod 3 = 0) then
    begin
      k3 := i;
      break;
    end;
  if k3 = 0 then
  begin
    writeln('Нет чисел, кратных 3.');
    exit;
  end
  else
    min := a[k3];
  for i := k3 to fn - 1 do
    if  (a[i] < min) and (a[i] mod 3 = 0) then
      min := a[i];
  writeln('Минимум: ', min);
end.

Объяснение кода листинга программы

Создается переменная n, которая будет хранить количество элементов в массиве.
Создается массив a, который будет хранить N элементов.
Создаются три переменные: k3, min и fn. Переменная k3 будет хранить индекс первого элемента, кратного трем, min - минимальное значение из найденных элементов, а fn - индекс первого отрицательного элемента.
Запускается цикл, в котором генерируются случайные числа от -100 до 100 для каждого элемента массива a.
Внутри цикла проверяется, является ли текущий элемент отрицательным. Если да, то его индекс записывается в переменную fn, и цикл прерывается.
После завершения внутреннего цикла вычисляется значение k3. Если ни один элемент не был найден, то выводится сообщение Нет чисел, кратных 3. и программа завершается.
Если был найден хотя бы один элемент, кратный трем, то его значение присваивается переменной min, и цикл прерывается.
Выводится сообщение Минимум:, и значение переменной min.