Var i, n: integer;Ves: array[1..14] of integer;BeginVes[1]:= 25; Ves[2]:= 21;Ves[3]:= 23;

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] lt; n Then
Begin
n : = Ves[i];
End;
Writeln(n);
End.
Растолкуйте задачку!!!