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