home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jason Aller Floppy Collection
/
239.img
/
TPROF10.ZIP
/
TFEXMPL3.ZIP
/
PRIME4PA.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-05-07
|
617b
|
41 lines
{ Copyright (c) 1990, Borland International }
program Prime4PA;
Var
I,N: Integer;
Function Prime( N : Integer ):Boolean;
Var
I : integer;
Begin
If (N MOD 2 = 0) then
Begin
Prime := N = 2;
Exit;
End;
If (N MOD 3 = 0) then
Begin
Prime := N = 3;
Exit;
End;
If (N MOD 5 = 0) then
Begin
Prime := N = 5;
Exit;
End;
For I := 7 to N-1 do
If (N MOD I = 0) then
Begin
Prime := False;
Exit;
End;
Prime := True;
End;
Begin
N := 1000;
For I := 2 to N do
If Prime(I) then
Writeln( I );
End.