Const
 maxcount=100;
type
 vec = array[1..maxcount] of Integer;
 matrix = array[1..20,1..20] of integer;

function isPrime(X: integer): boolean;
var
  i: integer;
  found: boolean;
Begin
  i := 2; found := false;
  while (i <= trunc(sqrt(x))) and (not found) do
    if x mod i = 0 then found := true else inc(i);
  isPrime := not found
End;

(* Postrochniy vvod matrizi *)
Procedure ReadMatr(var A:Matrix; var n,m:integer );
var
 i,j:word;
begin
 repeat
  write('Vvedite kolichestvo slov: '); readln(N)
 until (N>0) and (N<=sqrt(maxcount));
 repeat
  write('Vvedite kolichestvo stolbzov: '); readln(m)
 until (M>0) and (M<=sqrt(maxcount));
 For i:=1 to n do begin
  For j:=1 to m do begin
   write('A[',i,j,']= ');
   readln(A[i,j])
  end
 end
end;





procedure vecprint (a:vec; n:integer);
var i:integer;
begin
 writeln('prime int:');
 for i:=1 to n do  write(a[i],' | ')
end;

procedure getprime(a:matrix; n,m:integer; var b:vec; var nn:integer);
var i,j,s:integer;
begin
 nn:=0;
 for i:=1 to n -1 do begin
  s:=0;
  for j:=1 to m do if isprime(a[i+1,j]) then inc(s);
  inc(nn);
  b[nn]:=s
 end
end;

var
 a:matrix;
 b:vec;
 m,n,nn:integer;
begin
 Readmatr(a,n,m);
 getprime(a,n,m,b,nn);
 vecprint(b,nn);
 readln;
end.