{* Calculates the first hundred primes by means of trail divisions *}
{* Copyright Johan Gerard van der Galien 27 August 2002 johan.van.der.galien@satoconor.com *}

program HBPRM2;
var N,a,b,d,f:integer;
    E: TEXT;
label 1;

begin
  assign(E, 'D:\PASCAL\LOGDATA\HBPRM2.TXT');
  rewrite(E);
  N:=2;
  f:=1;
  writeln(E,'prime number ',f,' =',N);
1:while N<541 do
  begin
    N:=N+1;
    for a:=2 to (N-1) do
      begin
        b:=N mod a;
        if b=0 then goto 1;
      end;
    f:=f+1;
    writeln(E,'prime number ',f,' =',N);
  end;
  close(E);
end.