[Asinkrit]

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;

function IsPrime(Prim: Longint): Boolean;
var
  Z: Real;
  Max: LongInt;
  Divisor: LongInt;
begin
  Result := False;
  if (Prim and 1) = 0 then
    Exit;
  Z := Sqrt(Prim);
  Max := Trunc(Z) + 1;
  Divisor := 3;
  while Max > Divisor do
  begin
    if (Prim mod Divisor) = 0 then
      Exit;
    Inc(Divisor, 2);
    if (Prim mod Divisor) = 0 then
      Exit;
    Inc(Divisor, 4);
  end;
  Result := True;
end;

var
  i:integer;

begin
  for i:=1 to 1000 do
    if IsPrime(i) then
      Write(i,' ');
  Readln;
end.