home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / CALCPLUS.ZIP / PRIME < prev    next >
Encoding:
Text File  |  1996-04-02  |  314 b   |  16 lines

  1. procedure main()
  2.     var n := 1;
  3.     var lim := 1000;
  4.     argc() > 2 -> lim := val( argv( 2 ));
  5.     while n < lim do
  6.         var k:=3;
  7.         var p:=true;
  8.         n:=n+2;
  9.         while k*k<=n and p do
  10.             p:=n/k*k<>n;
  11.             k:=k+2;
  12.         end;
  13.         p -> echo n,' ';
  14.     end;
  15. end;
  16.