Сформировать массив простых чисел, не больших заданного натурального числа N. (программа Паскаль)

Question

Сформировать массив простых чисел, не больших заданного натурального числа N.

Answer 1

uses crt;
var i,n:integer;
begin
clrscr;
 
writeln('vvedite n');
readln(n);
 
for i:=1 to n do
 if (i = 2) or (i = 3) or (i = 5 )  or (i = 7) then write(i:3) else
 if (i mod 2 <> 0) and (i mod 3 <> 0 ) and (i mod 5 <> 0) and (i mod 7 <> 0) then write(i:3);
 
 
readkey;
end.