Program jumlah Bilangan Prima

program bilangan_prima;
uses wincrt;
var i,jumprima:integer;
e,x,d: integer;
jml:integer;
function fakt (n : integer):integer;
begin
jumprima:=0;
for i:=1 to n do
if n mod i=0 then jumprima:=jumprima+1;
fakt:=jumprima;
end;
begin
clrscr;
writeln (‘ Deret Bilangan Prima’);
writeln (‘————————-’);
write (‘Batas Bilangan Prima:‘);readln(x);
writeln;
writeln;
writeln (‘Deret Bilangan Prima:‘);
writeln (”);
d:= 1; e:=0;
repeat
if fakt (d) = 2 then
begin
write (d,’, ‘);
jml:=jml+d;
e:=e+1;
end;
d:=d+1; until (d=x);
writeln; writeln(”);
write(‘Jumlah : ‘,jml);
end.