4. 求 2 - 200内的所有素数，每行输出10个。

program exExhaustive4_1;
const e = 200;
var
     i, j, k, sq : integer;
begin
     write('   2    3 ');
     k := 2;
     i := 5;
     while i <=  e do
     begin
          sq := trunc(sqrt(i));
          for j := 3 to sq do
              if i mod j = 0 then
                 break;
          if i mod j <> 0 then
          begin
               write(i : 4, ' ');
               k := k+1;
               if k mod 10 = 0 then writeln;
          end;
          i := i+2;
     end;
     writeln;
     writeln('There are ', k, ' primes.');
     readln;
end.