Написать программу в pascal. найти сумму 10 нечетных чисел.

Program fofgogjoj; var a: array [1..100] of integer;     i, n, s: integer; begin  s: =0; n: =19;   for i: =1 to n do    begin    a[i]: =i;               if i mod 2=1 then s: =s+a[i];     end;   writeln ('сумма 10ти нечетных чисел равна: ',s); end.

Обозначим имеющиеся высказывания буквами. a: вторая буква слова согласнаяb: последняя буква слова гласнаяc: первая буква слова гласнаятогда исходное условие можно записать в виде (a v b) -> c или в ему эквилентном оно истинно, если истинно с или если одновременно ложны и а, и в.слов с первой гласной буквой нет, поэтому с всегда ложно. переформулируем условие , убрав отрицание: " вторая буква слова гласная" и " последняя буква слова согласная". теперь посмотрим, есть ли среди заданных слова, удовлетворяющие этому условию. вторая буква гласная в словах "закон" и "горе", а последняя буква согласная только в первом из этих слов. поэтому слово "закон" отвечает всем условиям и является ответом. ответ: закон.

Уберите лишние пробелы после ": " и все заработает, на выходе получите 0 исправленный вариант кода: var   a, b, t, m, r: integer; function f(x: integer): integer; begin   f : = 9 * (x + 19) * (x - 19) + 1; end; begin   a : = -20; b : = 20;   m : = a; r : = f(a);   for t : = a to b do   begin       if (f(t) < r ) then begin           m : = t;           r : = f(t)       end   end;   write(m); end.