Поиск простых чисел из диапазона

[dex92]

Прошу помощи, вроде сделал своим умом все правильно, но в результате пишет: 0.


Составить процедуру поиска простых чисел в диапазоне от 0 до 1000.

procedure TForm1.Button1Click(Sender: TObject);
var m,l:integer;

Procedure FIND (z:integer);
var i,j,lim: integer;
begin
for i:=1 to z do
j:=2;
lim:=round(sqrt(i));
while (i mod j <> 0) and (j <= lim) do inc( j );
if (j > lim) then i:=l;

end;


begin
m:=strtoint(edit1.text);
Find (m);
label2.Caption:=inttostr(l);
end;

end.

P.S. Нашел правда "код для поиска чисел" только от 1 до ... (хотя нужно от 0), но ведь это сути не меняет.

[RUSt88]

program p;

var
	N, i, j, k: integer;
	
begin
	N := 15;
	k := 0;
	for i := 0 to N do begin
		for j := 2 to i - 1 do begin
			if ( i mod j <> 0 ) then
				inc(k);
		end;
	end;
end.

k - здесь будет кол0во простых чисел

[Serge_Bliznykov]

Простые числа хоть от нуля, хоть от единицы, хоть от двух - количество будет одно и то же! А знаете почему?
Потому что:
Последовательность простых чисел начинается так:
2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53,



поиск написан с грубыми ошибками.
главная ошибка - нет операторных скобок begin/ end в цикле по i
вторая ошибка - кто счётчик наращивать то будет?!

попробуйте так:

Procedure FIND (z:integer);
var i,j,lim: integer;
begin
  L := 0;
  for i:=2 to z do begin
     j:=2;
     lim:=round(sqrt(i));
     while (i mod j <> 0) and (j <= lim) do inc( j );
     if (j > lim) then inc(L);
  end;
end;

p.s. исправлял прямо в браузере, возможны опечатки..

p.p.s. слово "Количество" пишется с одной буквой Л