Program Hitung Faktorial Bilangan Prima dengan Pascal

program fakbaru;
uses crt;
var i,j,n:integer;

begin
clrscr;

for i:=1 to 10 do
begin

n:=0;
//writeln('faktor ',i);
for j:=1 to i do
   if (i mod j=0) then
   begin
   //writeln (j);
   n:=n+1;
   end;
//writeln('cacah faktor =',n);
if (n=2) then writeln(i,'bilangan prima');
end;


readln;
end.