program sito; const max = 500; type tpole = array[ 2..max ] of boolean; var i, j: integer; p: tpole; begin for i := 2 to max do p[ i ] := true; for i := 2 to max do begin if p[ i ] then begin write( i, ' ' ); for j := 2 to max div i do p[ i * j ] := false; end; end; end.