В чём ошибка?
type st = set of -32768..32767;
var
a:array[1..100,1..100]of integer;
v:array[-10000..10000]of boolean;
el,k,n,i,j,l,h,k_str,g:integer;
b:st;
begin
writeln('Введите количество строк или столбцов квадратной матрицы: ');
readln(n);
writeln('Введите матрицу: ');
for i:=1 to n do
begin
v[i]:=false;
for j:=1 to n do read(a[i,j]);
end;
writeln();
k:=0;b:=[];g:=0;
for i:=1 to n do
for j:=1 to n do begin
if not(a[i,j]in b)then
begin
for l:=1 to n do
for h:=1 to n do if(a[l,h]=a[i,j])then begin inc(k);if(l mod 2 = 0)then inc(k_str);end;
if(k<>0)then writeln('Элемент: ',a[i,j]:5,' Всего: ',k:5,' На чётных строках: ',k_str);
if(k_str=k)and(k>1)then begin inc(g); v[a[i,j]]:=true; end;
k:=0;k_str:=0;
b:=b+[a[i,j]];
end;
end;
writeln();
if(g<>0)then
begin
writeln('Повторяющиеся элементы, расположенные только на чётных строках: ');
for i:=1 to n do
for j:=1 to n do if(v[a[i,j]])then begin write(a[i,j],' ');v[a[i,j]]:=false; end;
end
else writeln('Ни один повторяющийся элемент не расположен только на чётных строках!');
end.

Представим числа 256^2 и 4096^2 как набор ноликов и единичек, т.е в двоичной системе:

256^2=2^16=100000...(16 нулей)

4096^16=2^192=10000...(192 нуля)

Теперь, чтоб найти результат, нужно просто вычесть 15 из 2^16, вычитаем, получаем 1111111111110001

Складываем это число с 2^192, все очень просто, тут идет обыкновенная дизъюнкция:

1000...(176 нулей)1111111111110001

Зная, что F(15) в двоичной системе счисления это 1111, просто находим эти 1111

1111 1111 1111 0001 - 3 набора единичек

ответ: 3

В док-во приведу это число в шестнадцатеричной системе, переведенное машиной:

100000000000000000000000000000000000000000000fff1

from itertools import *

m = 0

p = 0

for i in range(2,5):

   n = 0

   word = product('ИА',repeat=i) ## i -это кол-во символов в слове

   for letter in word:

       if letter.count('И') <3 and letter.count('А') <3:

           n += 1  ##кол-во слов, где каждая гласная встречается не более двух раз

   if i !=2:

       p +=n ## кол-во слов длиной более двух символов без согласных  

   m+=n*2 ## кол-во слов длиной более двух символов  с 2мя согласными вначале слова

print(m+p)

Объяснение:

надеюсь питон знаешь,мб можно и  короче написать