Вывести ** экран все простые числа в диапазоне от A до В. (Pascal)

Question

Вывести на экран все простые числа в диапазоне от A до В.
(Pascal)

Answer 1

Var
  a, b, i, j: longint;
  ar: array of boolean;
 begin
  readln(a, b);
  setlength(ar, b);
  for i := 1 to b do ar[i - 1] := true;
   i := 2;
  while (sqr(i)
  begin
    if(ar[i - 1] = true) then
     begin
      j := sqr(i);
      while (j
      begin
        ar[j - 1] := false;
        j := j + i;
      end;
    end;
    i := i + 1;
  end;
   for i := a to b do
     if(ar[i - 1] = true) then write(i, ' ');
end.