Begin
var s:=readlnstring;
var gl:='АЕИОУЫЯЁЮЭ';
var m:=s.ToWords;
var k:=m.Length;
var b:=new integer[k];
for var i:=0 to k-1 do
b[i]:=m[i].Where(c->c.ToUpper in gl).Count;
Writeln(m[b.IndexMax])
end.
Начальные значения: s=0;n=3;
1 шаг цикла
0*0*0 = 0 (< 123)
s := 1;
n := 5;
2 шаг цикла
1*1*1 = 1 (< 123)
s := 2;
n := 7;
3 шаг цикла
2*2*2 = 8 (< 123)
s := 3;
n := 9;
4 шаг цикла
3*3*3 = 27 (< 123)
s := 4;
n := 11;
5 шаг цикла
4*4*4 = 64 (< 123)
s := 5;
n := 13;
6 шаг цикла
5*5*5 = 125 (< 123)
условие не выполняется, выходим из цикла
будет выведено число 13
С блокнота попробуй открыть, если нет то хз
Формы, которые строятся на основе таблиц или запросов