Для какого слова истинно высказывание ¬ ( первая буква слова согласная -> ( вторая буква слова гласная \/ последняя буква слова гласная)) горе кресло закон

""

1) var   n, i, c, sum, sum2, c2: integer;     a: array of integer;   begin   sum : = 0;     sum2 : = 0;   c2 : = 0;   c : = 0;     readln(n);     setlength(a, n);     for i : = 0 to n - 1 do     begin     read(a[i]);       if(a[i] > 0) and (a[i] > 6) then       begin       sum : = sum + a[i];         c : = c + 1;       end;       if(a[i] mod 2 = 0) and (a[i] > 6) then       begin       sum2 : = sum2 + a[i];       c2 : = c2 + 1;       end;     end;     writeln(sum / c);     write(sum2 / c2);   end. 2) var   n, i, max, im: integer;   a: array of integer;   begin   im : = 1;   readln(n);   setlength(a, n);   for i : = 0 to n - 1 do   begin     read(a[i]); if(i = 1) then max : = a[0];     if(a[i] > max) then     begin       max : = a[i];       im : = i + 1;     end;   end;   write((max * 2) / im); end.

Var   a, f, f1, i: integer;   begin   f : = 0;   f1 : = 0;   write('введите 10 чисел: ');   for i : = 1 to 10 do   begin     read(a);     if(a > 10) then f : = f + 1;     if(a > 5) then f1 : = f1 + 1;   end;   if(f > 4) then write('караул! сейчас все взорвется')   else     begin     writeln(f1, ' чисел(о)(а) больше 5');     write(f, ' чисел(о)(а) больше 10');   end; end.