решето Эратосфена

var
a : array [1..5000] of boolean;
n,x,y : integer;
begin
write('n=');readln(n);
a[1] := false;{число 1 не простое}
for x:=2 to N do a[x] := true; {пока все считаем простыми}
for x:= 2 to N div 2{round(sqrt(N))} 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.

procedure TForm1.Button1Click(Sender: TObject);
var
a : array[1..5000] of boolean;
n,x,y : integer;
begin
n:=StrToInt(Edit1.text);
a[1] := false;{число 1 не простое}
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 Memo1.Lines.Add(IntToStr(x)){что осталось, выводим}
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a : array[1..5000] of boolean;
n,x,y,k: integer;
s:string;
begin
Memo1.Font.Name:='Courier New';//установим моноширный шрифт
n:=StrToInt(Edit1.text);
a[1] := false;{число 1 не простое}
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;{это составное}
k:=0;
for x:=1 to N do {вычеркиваем его}
if a[x] then
 begin
  k:=k+1;
  str(x:5,s);
  Memo1.Text:=Memo1.Text+s;
  if k mod 10=0 then
  Memo1.Text:=Memo1.Text+#13#10;
 end;
end;
end.

procedure TForm1.Button3Click(Sender: TObject);
var
  n,p: integer;
      begin
  n:=StrToInt(Edit1.text);
  if n<>0 then
  begin
   p:=round(n/ln(n));
   Label3.Caption:=floattostr(p);
  end
else ShowMessage('введите число');
end;