var a: array [1..250, 1..250] of integer; // матрица с числами.n, m, i, j: integer; function prime(a: integer):boolean; //Проверка на простоту.vari: integer;f: boolean;begin for i := 2 to trunc(sqrt(a)) do if (a mod i = 0) then begin f := true; break; end;prime := f;end;beginreadln(n, m); // Ввод размера матрицы.for i := 1 to n dobeginfor j := 1 to m doread(a[i][j]);readln;end;for i := 1 to m do for j := 1 to n do if (not prime(a[j][i])) then begin inc(a[n + 1][i]); inc(a[n + 2][i], a[j][i]); end;for i := 1 to m do writeln(a[n + 1][i],' ',a[n + 2][i]); // Вывод суммы и кол - ваreadln;end.
