program Sieb;

uses
  arithmetik;

var
   n		: integer;
   schrittweite	: integer;
   i,j		: integer;
   first	: boolean;

begin
   schrittweite:=10;
   n:=300;
   write('\begin{tabular}{|');
   for i:=1 to schrittweite do
      write('c|');
   writeln('} \hline');
   for j:=0 to (n div schrittweite)-1 do begin
      for i:=(1+j*schrittweite) to ((j+1)*schrittweite) do begin
	 if (istprim(i)) then begin
	    if (i mod schrittweite = 0) then
	       writeln(i, ' \\ \hline')
	    else write(i, ' & ');
	 end
	 else begin
	    if (i mod schrittweite = 0) then
	       writeln('$\not{',i,'}$ \\ \hline')
	    else write('$\not{',i,'}$  & ');
	 end
      end;

   end;
   writeln('\end{tabular}');      

end.