unit ListEratosfen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

procedure PEratosfen; {решето Эратосфена}
var
  N: integer; {число введённых первых чисел натурального ряда}
  G: integer;
  I: integer;
  M: array of boolean;
  P: integer; {число простых чисел среди N первых натуральных чисел}
  K: integer;
begin
  N:=StrToInt(Form1.Edit1.Text);
  G:=Trunc(Sqrt(N));
  SetLength(M,N+2);
  for I:=1 to N do  M[I] := true;
  P:=0;
  K:=2;
  I:=2;
  while (K*I<N) or (K*I=N) do
    begin
      M[K*I]:=false;
      I:=I+1;
    end;
  K:=3;
  while ((K<G) or (K=G))  do
    begin
      I:=K;
      while (K*I<N) or (K*I=N) do
        begin
          if M[K*I]=true then M[K*I]:=false;
          I:=I+2;
        end;
      K:=K+2;
    end;
  for I:=1 to N do
    if M[I]=true then P:=P+1;
  Form1.Label2.Caption := 'Среди первых '+ IntToStr(N) +
  ' натуральных чисел существует ' + IntToStr(P) + ' простых чисел';
  Form1.Label3.Caption := 'Процент простых чисел равен: ' + FloatToStr(P/N*100);
  Form1.Label4.Caption := 'Доля простых чисел равна: ' + FloatToStr(P/N);
end;

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case length(Edit1.Text) of
    0:    case Key of
            #8       :  begin
                          Label2.Caption := '';
                          Label3.Caption := '';
                          Label4.Caption := '';
                        end;
            '1'..'9' :  begin
                          Label2.Caption := '';
                          Label3.Caption := '';
                          Label4.Caption := '';
                        end;
            else Key := Chr(0);
          end;
    1..9: case Key of
            #8       :  begin
                          Label2.Caption := '';
                          Label3.Caption := '';
                          Label4.Caption := '';
                        end;
            '0'..'9' :  begin
                          Label2.Caption := '';
                          Label3.Caption := '';
                          Label4.Caption := '';
                        end;
            #13      :  PEratosfen;
            else Key := Chr(0);
          end;
    else  case Key of
            #8       :  begin
                          Label2.Caption := '';
                          Label3.Caption := '';
                          Label4.Caption := '';
                        end;
            #13      :  PEratosfen;
            else Key := Chr(0);
          end;
  end;
end;


end.