求出100至400之间的素数

pascal语言
var
i,j,m:integer;
a:array[100..400] of boolean;
begin
for i:=100 to 400 do a[i]:=true;
for i:=100 to 400 do
for j:=2 to i-1 do begin
m:=i mod j;
if m=0 then a[i]:=false;
end;
for i:=100 to 400 do
if a[i] then write(i:4);
end.

a wo bu dong

bb