1. Для какого из приведенного ниже имен истинно высказывание: «(Первая буква согласная) или не последняя гласная)»
а) Иван, б) Артем, В) Егор,
г) Ирина.
Решение представить в виде таблицы истинности.​

Программа

var

 A: array[1..8] of integer;

 B: array[1..8] of integer;

 i: integer;

begin

 Writeln('Заполните массив ');

 for i:=1 to 8 do

   begin

   Read(A[i]);

   if odd(A[i]) then //* смотри примечание после кода

     B[i]:=A[i]

   end;

   Writeln('Нечётные числа массива ');

   for i:=1 to 8 do

   begin

     if B[i]>0 then

       Write(B[i],' ');

   end;

end.

Прим.: *odd - функция, которая определяется чётность элемента. Если элемент нечётный, то функция возвращает значение true, в противном случае - false

Тестовый ввод программы показан в приложении к решению

var

  k: integer;

begin

  readln(k);

  if k< 0 then

    writeln('не может такого быть')

  else

    begin

      write('мы нашли в лесу ',k,' гриб');

      if (k mod 100 in [5..19]) then

        writeln('ов')

      else if (k mod 10 in [2..4]) then

        writeln('а')

      else if (k mod 10=1) then

        writeln

      else

        writeln('ов');

    end;

end.