home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 239.img / TPROF10.ZIP / TFEXMPL3.ZIP / PRIME1PA.PAS < prev    next >
Pascal/Delphi Source File  |  1990-05-07  |  395b  |  26 lines
  1. { Copyright (c) 1990, Borland International }
  2. program Prime1PA;
  3.  
  4. Var
  5.   I,N: Integer;
  6.  
  7. Function Prime( N : Integer ):Boolean;
  8. Var
  9.   I : integer;
  10. Begin
  11.   For I := 2 to N-1 do
  12.     If (N MOD I = 0) then
  13.       Begin
  14.         Prime := False;
  15.         Exit;
  16.       End;
  17.   Prime := True;
  18. End;
  19.  
  20. Begin
  21.   N := 1000;
  22.   For I := 2 to N do
  23.     If Prime(I) then
  24.       Writeln( I );
  25. End.
  26.