mình làm function nha

program gannguyento;

uses crt;

var n,i,dem:integer;

function ktnt(k:integer):boolean;

var l:integer;

begin

 ktnt:=false;

 if k<2 then exit;

 for l:=2 to trunc(sqrt(k)) do

  if k mod l=0 then exit;

 ktnt:=true;

end;

function kt(a:integer):boolean;

var h,d:integer;

begin

d:=0;

for h:=1 to a do

 if (a mod j=0) and ktnt(h) then inc(d);

if d=2 then kt:=true

  else kt:=false;

end;

BEGIN

clrscr;

for i:=1 to n do

 if kt(i) then inc(dem);

write(dem);

readln

end.

1.Câu trả lời ngắn.

2.Có đọc file.

3.Xin hay nhất.

uses crt;
var n,i,j,kq,de,dem:longint; d:text;
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while a mod i<>0 do inc(i);
   nt:=i=a;
end;
begin
clrscr;
   assign(d,'nguyento.inp');reset(d);
      readln(d,n);
   close(d);
   assign(d,'nguyento.out');rewrite(d);
      for i:=1 to n do
         begin
            de:=0; dem:=0;
            for j:=2 to i div 2 do if i mod j=0 then begin inc(de); if nt(j) then inc(dem); end;
            if(de=2)and(de=dem)then inc(kq);
         end;
      writeln(d,kq);
   close(d);
end.