Для какого имени истинно высказывание: ¬ (первая буква согласная → последняя буква гласная) ù вторая буква согласная? 1)иван 2)марина 3)ирина 4)степан

Если перед скобкой стоит минус,то ответ : иван

♪♪♪♪♪♪♪♪♪

Var    a: array[1..60] of integer;   k,i,min,ind, max,sum: integer; begin   sum: =0;   readln(k);   randomize;   writeln('исходный массив: ');   for i: =1 to 60 do   begin       a[i]: =random(15)-5;     writeln('a[',i,']=',a[i]);     end;   min: =32600;   max: =-32600;   for i: =1 to 60 do //ищем минимальный элемент   begin     if a[i]< min then     min: =a[i];     ind: =i;   end;   for i: =1 to 60 do //ищем максимальный элемент      if a[i]> max then         max: =a[i];   for i: =60 downto 60-k do //сумма последних k  элементов    sum: =sum+a[i];   a[ind]: =sum; if a[1]> =0 then      for i: =1 to 60 do     begin        a[i]: =a[i]*sqr(min);       writeln('a[',i,']=',a[i]);     end   else    for i: =1 to 60 do     begin       a[i]: =a[i]*sqr(max);       writeln('a[',i,']=',a[i]);       end; end.

квадрат катета   равен разности квадрата гипотенузы и квадрата другого катета

program raf105;

var

  b,s,s2: array[1..10] of real;

  i: integer;

begin

  for i: =1 to 10 do

  begin

    b[i]: = random(11,20);

    s[i]: = random(2,10);

    s2[i]: = sqrt(power(b[i],2) - power(s[i],2));

    writeln('треугольник №',i);

    writeln('гипотенуза: ',b[i]);

    writeln('катет 1: ',s[i]);

    writeln('катет 2: ',s2[i]: 0: 1);

    writeln;

  end;

end.

pascalabc