Для какой из перечисленных ниже фамилий писателей и поэтов истинно высказывание: не (количество гласных букв чётно) и не (первая буква согласная)? 1) есенин 2) одоевский 3) толстой 4) фет

Толстой( но эт не точно)

var  

v:array[1..100] of integer;  

i,j,n,b:integer;  

begin  

randomize;  

write('vvedite razmernost'' massiva: '); readln(n);  

writeln(' Ishodnii massiv '); writeln;  

//Заполним массив случайными числами  

for i := 1 to n do  

begin  

v[ i]:=random(100)-50;  

write(v[ i]:4);  

end;  

writeln;  

 

// организуем сортироваку от минимального  

// к максимальному элементу массива  

for i:=1 to n-1 do  

for j:=i+1 to n do  

if v[ i]>v[ j] then  

begin  

b:=v[ i];  

v[ i]:=v[ j];  

v[ j]:=b;  

end;  

writeln;  

write(' Otsortirovannii massiv ');writeln;writeln;  

write('ot min k max: ');writeln;  

for i := 1 to n do  

write(v[ i]:4); writeln; writeln;  

write('ot max k min: '); writeln;  

for i := n downto 1 do  

write(v[ i]:4);  

readln;  

end.

var a,b,c:integer;

begin

write('Введите результаты 3-х экзаменов: ');

readln (a,b,c);

if a+b+c < 13 then writeln ('Сожалеем, вы не приняты...')

else writeln('Поздравляем, вы приняты!')

end.

const n=3;

var a:array [1..n,1..n] of integer;

i,j,s:integer;

begin

for i:=1 to n do

begin

for j:=1 to n do

begin

write('Введите результат ',j,' экзамена ',i,' ученика ');

readln(a[i,j])

end

end;

writeln;

for i:=1 to n do

begin

s:=0;

for j:=1 to n do s:= s+a[i,j];

if s < 13 then writeln ('Сожалеем, ученик ',i,' вы не приняты...')

else writeln('Поздравляем, ученик ',i,' вы приняты!')

end

end.