home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / TFEXMPL.ZIP / PRIME3PA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-13  |  509 b   |  32 lines
  1. { Copyright (c) 1990, Borland International }
  2. program Prime3PA;
  3.  
  4. Var
  5.   I,N: Integer;
  6.  
  7. Function Root( N : Integer ): Integer;
  8. Begin
  9.   Root := Trunc(Sqrt( N ));
  10. End;
  11.  
  12. Function Prime( N : Integer ):Boolean;
  13. Var
  14.   I, Limit : integer;
  15. Begin
  16.   Limit := Root(N);
  17.   For I := 2 to Limit do
  18.     If (N MOD I = 0) then
  19.       Begin
  20.         Prime := False;
  21.         Exit;
  22.       End;
  23.   Prime := True;
  24. End;
  25.  
  26. Begin
  27.   N := 1000;
  28.   For I := 2 to N do
  29.     If Prime(I) then
  30.       Writeln( I );
  31. End.
  32.