home *** CD-ROM | disk | FTP | other *** search
- procedure main()
- var n := 1;
- var lim := 1000;
- argc() > 2 -> lim := val( argv( 2 ));
- while n < lim do
- var k:=3;
- var p:=true;
- n:=n+2;
- while k*k<=n and p do
- p:=n/k*k<>n;
- k:=k+2;
- end;
- p -> echo n,' ';
- end;
- end;
-