e sad ja sam skapirao da to treba da izgleda otprilike ovako, ali nesto zapinjem ako neko moze da kaze gde je greska...
begin
for i:=1 to n do begin
x:=false;
for j:=2 to round(sqrt(i)) do
if i mod j=0 then x:=false else x:=true;
if x=true then brprbr:=brprbr+1; end;
label2.Visible:=true;
label2.caption:=inttostr(brprbr); end;