关于一种输出给定区间内所有素数的办法，求鉴定
Var m,n,i,s,y,x,a,b:Integer;
begin
readiln<a,b>;
for m:=a to b do
begin
i:=1;
n:=m;
x:=m;
if m mod 2 <>0 then
repeat
i:=i+2;
y:=n mod i;
x:=x-2*s;
n:=x+y;
until y=0;
if m=i then writeln<m>;
end;
end.

算法太弱，百度筛法吧

百度一下“筛法求素数”，那个很有用，平时素数判定我都写个筛法。