Program fantscrin;
Var a: array [1..10] of integer;
i,k,g:integer;
Begin
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
write(a[i], ' ');
writeln('');
write('К = '); readln(k);
g:=0;
for i:=1 to 10 do
if(a[i] = k) then g:=i;
writeln(g);
End.
Then begin writeln(b).... - будет выводиться 3-х значное число
Мраморная скульптура является носителем информации
Мак+рос(а) = макрос
Макрос - скрипт на языке VBA
Ответ: 24.
Если взять иные варианты (25, 28, 26), то ничего выйдет, т.к. они не делятся на 3, а значит и цикла не получится.