Опишите на природном языке или на одном из языков программирования

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,Min:integer;
Begin
Randomize;
Write('Исходый массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(10000)-5000;
    Write(' ',A[i])
    End;
WriteLn;
Min:=1000;
For i:= 1 to N do
    if (99lt;Абс(A[i]))and(Абс(A[i])lt;1000)and(A[i] mod 7 = 0)and(A[i]lt;Min) then
       Min:=A[i];
if Min = 1000 then WriteLn('В массиве нет трёхзначных элементов, кратных семи')
else WriteLn('Min = ',Min);
End.

Пример:
Исходый массив: 2635 4814 -2784 1015 -462 -50 4069 -4566 578 168 707 660 -731
Min = -462

Var a, b, c: Integer;
begin
readln(a, b, c);
if (a mod 7 = 0) and (b mod 7 = 0) and (c mod 7 = 0) then
 begin
  if (a lt; b) and (a lt; c) then writeln('Min = ', a)
  else if (b lt; c) then writeln('Min = ', b)
  else writeln('Min = ', c);
 end;
end.