Var i, n: integer;
Ves: array[1..14] of integer;
Begin
Ves[1]:= 25; Ves[2]:= 21;
Ves[3]:= 23; Ves[4]:= 28;
Ves[5]:= 30; Ves[6]:= 25;
Ves[7]:= 31; Ves[8]:= 28;
Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27;
Ves[13]:= 26; Ves[14]:= 24;
n := Ves[1];
For i := 1 to 14 Do
If Ves[i] < n Then
Begin
n : = Ves[i];
End;
Writeln(n);
End.
Объясните задачу!!!

заполняем массив числами

затем присваиваем минимальное значение первому элементу

после этого проверяем, есть ли в массиве числа меньше

если есть, то минимальное значение будет меняться, если же нет, то минимально значение останется равным первому элементу