Найти произведение 20 первых простых чисел

var
 
n: Integer; 
f: Longint; 
 
begin
  f := 1;
  for n := 2 to 20 do 
    f := f * n;
  Write(f);
end.

function Simple(x: integer): boolean;
var
  i: integer;
begin
  for i := 2 to x div 2 do
    if x mod i = 0 then
    begin
      result := false;
      exit
    end;
  result := true;
end;
 
var
  
  n: Integer; 
  f: Longint;
 
begin
  f := 1;
  for n := 2 to 8 do 
    if Simple(n) then
      f := f * n;
  Write(f);
end.

  for i := 2 to trunc(sqrt(x)) do

var
  
  n, k: Integer; 
  f: Longint;
 
begin
  f := 1;
  n := 1;
  for k := 1 to 20 do
    begin 
      repeat inc(n) until Simple(n);
      f := f * n
    end;
  Write(f);
end.

const
  n = 20;
  m = trunc(n * (ln(n) + ln(ln(n)))); //оценка сверху n-ного простого числа (верна при n >= 6)
 
var
  s: array[2..m] of integer; //решето
  i, j, k, p: longint;
 
begin
  for i := 2 to m do s[i] := i; //заполнение решета
  i := 1; //начальная величина для поиска простого числа
  p := 1; //начальная величина произведения
  for k := 1 to n do //цикл поиска и умножения первых n простых чисел
    begin
      repeat inc(i) until s[i] > 0; //ищем в решете очередное простое число
      p := p * s[i]; //вычисляем целевое произведение
      j := i + i; //минимальное число, кратное найденному простому
      while j <= m do //цикл удаления из решета чисел, кратных найденному простому
        begin
          s[j] := 0; //удаляем
          inc(j, i) //вычисляем следующее число, кратное найденному простому
        end
    end;
  write('P = ', p); //печать результата
  readln
end.

function Simple(x: integer): boolean;
var
  i: integer;
begin
  for i := 2 to x div 2 do
    if x mod i = 0 then
    begin
      result := false;
      exit
    end;
  result := true;
end;
 
var
  
  n: Integer; 
  f: Longint;
 
begin
  f := 1;
  for n := 2 to 20 do
    if Simple(n) then
      f := f * n;
  write(f);
end.

var i,k,d:longint;
f:boolean;
p:BigInteger;
begin
  i:=2;p:=1;
  while k<=19 do
    begin
      f:=i>1;
      d:=2;
      while(f)and(d*d<=i) do
        begin
          f:=i mod d<>0;
          d:=d+1;
        end;
      if f
        then begin p:=p*i;k:=k+1;end;
        i:=i+1;
   end;
 write(p);
end.

function simple(x: longword): boolean;
var
  i: longword;
begin
  simple := x > 1;
  for i := 2 to trunc(sqrt(x)) do
    if x mod i = 0 then
      begin
        simple := false;
        break
      end
end;
 
const
  g = 10000000;
var
  n, i, k: longword;
  f: array[1..4] of longword;
begin
  f[1] := 1; //начальное значение произведения = 1
  for k := 1 to 20 do //цикл по номерам простых чисел
    begin
      repeat inc(n) until simple(n); //ищем очередное простое
      for i := 1 to 4 do f[i] := f[i] * n; //умножаем массив на очередное простое число
      for i := 1 to 3 do //цикл распространения переноса по модулю 10^7
      begin
        f[i + 1] := f[i + 1] + f[i] div g; //добавляем перенос к следующему элементу
        f[i] := f[i] mod g //усекаем элемент
      end
    end;
  for i := 4 downto 1 do write(f[i]) //выводим результат
end.