{ Prime number generator }
{ Generates all the primes between 0 and 10000 }
program primes(output);

var [Public]
  prime:      integer;
  rprime:     real4;
  i:	      integer;
  sqrtp:      integer;
  notprime:   boolean;

begin
  writeln('      2');
  writeln('      3');
  prime := 5;
  repeat
    rprime := prime;
    sqrtp := trunc(sqrt(rprime) + 1.0);
    i := 1;
    notprime := false;
    while (i < sqrtp) and (not notprime) do
      begin
	i := i + 2;
	notprime := (prime mod i = 0);
      end;
    if (not notprime) then writeln(prime:6);
    prime := prime + 2;
  until (prime > 10000);
end.
