Написать программы, выполняя следующие правила - описание переменных - ввод данных - расчет - вывод результата от города асино до города томск 130 км. рассчитать необходимое количество бензина для поездки из томска в асино и обратно по введённому расходу на 1 км

Const n=8;
var x : array[1..n] of real;
   i : integer; min : real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=20*random-10;
  write(x[i]:6:2,' ');     
 end;
 writeln;
min:=x[1];
for i:=2 to n do
 if x[i] < min then min:=x[i];
writeln('min=',min:6:2);
for i:=1 to n do
 if x[i]<0 then x[i]:=min;
writeln('Измененный массив:');
for i:=1 to n do write(x[i]:6:2,' ');
end.

Пример:
Исходный массив:
 -7.84  -9.97   7.00  -8.26  -7.71  -3.88   7.59  -2.32 
min= -9.97
Измененный массив:
 -9.97  -9.97   7.00  -9.97  -9.97  -9.97   7.59  -9.97 

1. Имеем дизъюнкцию (логическое или), которая ложна, если оба операнда ложны, значит, неверно, что НЕ(Первая буква гласная) и неверно, что Последняя буква гласная. Значит, первая буква гласная и последняя согласная, подходит только Егор (4).
2. Всё стоит в отрицании (НЕ), если отрицание истинно, значит, его аргумент ложен, Первая буква согласная ИЛИ Последняя буква гласная ложно. Всё аналогично первому, ответ Иван (1).
3. (X < 3) И НЕ (X < 2) = (X < 3) И (X >= 2) = (2 <= X < 3). Это неравенство выполнено для 2 (2).
4. Должно быть неверно, что третья буква гласная и неверно, что НЕ(последняя буква гласная), т.е. третья буква согласная, а последняя гласная. ответ Татьяна (2).
5. Конъюнкция (логическое И) истинно, если все операнды истинны, в данном случае НЕ(третья буква гласная)=(третья буква согласная) и (последняя буква согласная). Подходит Матвей (4).
6. Должны выполняться НЕ(количество гласных нечетно) и НЕ(первая буква согласная), т.е. кол-во гласных чётно и первая буква гласная. ответ Одоевский (2).
7. Опять конъюнкция, истинны оба операнда: НЕ(число < 20) = (число >= 20) и (число чётное). Среди вариантов есть только одно чётное число, не меньшее 20, это 36 (4).
8. Нужно слово, оканчивающееся на мягкий знак и состоящее из нечётного числа букв, это декабрь (3).