Напишите программу, которая находит все простые числа в диапазоне от 2 до N двумя разными способами:
а) проверкой каждого числа из этого интервала на простоту;
б)используя решето Эратосфена


срочно надо, пожалуйста!

var n,i,k:integer;p,pr:set of byte;function prost(n:integer):boolean;var j,m:integer;beginm:=0;for j:=2 to trunc(sqrt(n)) do if n mod j = 0 then inc(m);prost:=m=0;end;beginreadln(n);writeln('1:');for i:=2 to n do if prost(i) then write(i,' ');writeln;writeln('2:');p:=[2..n]; pr:=[];k:=2;repeat while not(k in p) do k:=k+1; pr:=pr+[k]; i:=k; repeat  p:=p-[i]; i:=i+k; until i>n;until p=[];for i:=2 to n do if i in pr then write(i,' ');writeln;end.Пример:401:2 3 5 7 11 13 17 19 23 29 31 372:2 3 5 7 11 13 17 19 23 29 31 37