Program Pascal Menentukan Jumlah Bilangan Prima

function faktor(n:longint):longint;
var
i,temp:integer;
begin
temp:=0;
for i:=1 to n do
if n mod i=0 then inc(temp);
faktor:=temp;
end;

var
x,a,b,n:longint;
begin
write('banyak bilangan:');readln(a);
b:=1;
x:=0;
repeat
if (faktor(b)=2) then
begin
write(b,' ');
inc(x);
end;
inc(b);
until (x=a);

readln;
end.