определить макс.длину

[Arinaeros]

Определить максимальную длину последовательности простых чисел с помощью массива на языке pascal abc

[newerow1989]

Она бесконечна, но даю подсказку:

function Simple(n:integer):boolean;
var i:integer;
begin
   Result:=false;
   If n<2 then
      Exit;
   For i:=2 to Trunc(Sqrt(n)) do
      If n mod i=0 then
         Exit;
   Result:=true;
end;

const n = 20;
var i, k: integer;
begin
   k:=0;
   i:=1;
   while k<n do
   begin
      if Simple(i) then
      begin
         Write(i, ' ');
         Inc(k);
      end;
      Inc(i);
   end;
   Writeln;
   Readln;
end.