Сначала производится инициализация массива, в конце - выводится на печать 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
a, b, c, d: real;
begin
readln(a, b, c);
if a = 0 then begin
if b = 0 then
writeln('х может быть любым')
else
writeln('x = ', c / -b);
exit;
end;
d := (b * b) - 4 * a * c;
if d < 0 then begin
writeln('Комплексные корни');
exit;
end;
writeln('x1 = ', -b + sqrt(d) / (2 * a));
writeln('x2 = ', -b - sqrt(d) / (2 * a));
end.