Witam , mam problem z zliczaniem liczb .
program liczby_pierwsze_zanuzone;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,c,b,a,n,x:Integer;
r:array of Integer;
begin
writeln('Wpisz liczbe ...');
readln(a);
for i:=1 to a do
begin
x:=0;
for n:=1 to i do
begin
if i mod n=0 then
x:=x+1;
end;
if x=2 then
begin
SetLength(r,i);
b:=0;
for c:=low(i) to high(i) do
begin
b:=b+1;
end;
end;
writeln('W liczbie ',a,' miesci sie ',b,' liczb pierwszych');
end;
readln;
end.
Chodzi mi głównie o ostatnią pętlę typu for . Nie wiem czy poprawnie użyłem low/high . Ma ona wyszukane liczby pierwsze dodać np. jeżeli mam liczby 2,3,5,7 to ma wyswietlić ze są 4 liczby . Program prosi uzytkownika o wpisanie liczby i wyswietla ile liczb pierwszych zmieści się w tej liczbie podanej przez użytkownika , ale nie mogą się te liczby pierwsze powtarzać .