Вдвумерном массиве n*n найти простые числа,и если в строках находятся более двух простых чисел то обнулить эти строки.

Вот жутко неэффективное решение, для нормального надо писать решето эратосфена, можно нагуглить, если нужна эффективность function isprime (a : integer) : boolean; var   i, lim  : integer; begin   if n < 4 then begin   if n = 1 then isprime : = false else isprime : = true;   exit;   end;   lim : =  trunc (sqrt (a));   for i : = 2 to lim do     if a mod i = 0 then     begin       isprime : = false;       exit;     end; isprime : = true; end; var   a : array of array of integer;   b : array of integer;   i, j, n  : integer; begin   read (n);   setlength (a, n, n);   setlength (b, n);   for i : = 0 to n - 1 do     for j : = 0 to n - 1 do       read (a[i, j]);     for i : = 0 to n - 1 do   begin     b[i] : = 0;     for j : = 0 to n - 1 do       if isprime(a[i, j]) then inc (b[i]);   end;     for i : = 0 to n - 1 do begin   if b[i] < = 2 then     for j : = 0 to n - 1 do       write (a[i, j], ' ')   else          for j : = 0 to n - 1 do write ('0 ');   writeln; end; end.

Звукозаписи хранятся в формате mp3