Ответ+ таблицу, ! надо! для какого символьного набора истинно высказывание : вторая буква согласная∧ (в слове 3 гласных буквы ∨ первая буква согласная)? 1) уббошт 2) туиошш 3) шубвои 4) иттрао

2) и3) не подходят(2   гласная) 4) не подходит  ответ 1)

Var n,z,k: integer; begin write('введите сумму: '); readln(n); k: =500; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =100; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =50; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =10; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =5; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =1; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); end.

Const n=5; var i,j: integer; a: array[1..n,1..n] of integer; max: integer; procedure p_max(input_mass: integer); begin  if input_mass> max then     max: =input_mass; end; //заполняем массив procedure zapolnenue; var i,j: integer; begin for i: =1 to n do     for j: =1 to n do         a[i,j]: =random(1000); end; begin randomize; zapolnenue; writeln('массив: '); for i: =1 to n do begin       for j: =1 to n do       begin           write(a[i,j],' ');           p_max(a[i,j]);       end;       writeln; end; writeln; writeln('max = ',max); end.