простые числа

[Акашаев Нурлан]

Помогите!!! Надо определить, является ли число простым. Сразу говорю, мне не нужно решето Эратосфена! Полное объяснение: мне нужно найти из промежутка от 1 до 100000 простые числа.
Please help me!!!

[kommunist]

вот попробуй

program chisla;
uses crt;
const N=100000; 

var 
a : array [1..N] of boolean; 
x,y : integer; 

begin 
a[1] := false; 
for x:=2 to N do a[x] := true; 

for x:= 2 to N div 2 do 
for y:= 2 to N div x do 
a[x*y] := false; 

for x:= 1 to N do 
if a[x] then write(x,); //выводим данные в строчку 
readln; 
end.

[Plague]

const n = 100000;
var i,j,k: longint;
     f: text;
begin
assign(f, 'out.txt');
rewrite(f);
for i:=2 to n do
begin
k:=0;
for j:=2 to round(sqrt(i))+1 do
  if i mod j = 0 then k:=k+1;
if k=0 then write(f, i, ' ');
end;
close(f);
end.