Сначала производится инициализация массива, в конце - выводится на печать n.
Содержательная часть программы - эта:
n := ves[1];
For i := 1 to 14 Do
If Ves[i] < n Then
Begin
n : = ves[1]
End;
Здесь сначала n равно ves[1], затем в цикле, если ves[i] меньше n, то n присваивается равным ves[1]. Если бы было присвоение ves[i], то получился бы алгоритм поиска минимального элемента (ответ был бы 21 = min[25, 21, 23, 28, 30, 25, 31, 28, 25, 28, 30, 27, 26, 24]). Но здесь вне зависимости от значений всегда присваивается n = ves[1], поэтому в n в любой момент времени записан первый вес (25), он и будет выведен на экран.
ответ: 25
//1
begin
for var i:=100 to 999 do if i mod 10 = 3 then print (i);
end.
//2
begin
var min:=30000; var n:=0;
repeat
n:=readinteger('Введите число: ');
if (n.iseven) and (n<0) and (n<min) then min:=n;
until n=0;
write ('Min: ', min);
end.
//3
begin
var sum:=0; var n:=0; var a:=0;
repeat
a:=readinteger('Введите число: ');
if a.iseven then
begin
sum+=a;
inc (n);
end;
until a=0;
write ('Average: ',sum/(n-1));
end.