Berikut ini adalah program untuk menentukan bilangan prima :
Program prima;
uses wincrt;
var a,x,bf:integer;
faktor:array[1..50] of integer;
label baca;
begin
baca:
write ('masukkan angka : '); readln(a);
if a < 2 then goto baca;
faktor[1]:=1;
bf:=1;
if a > 3 then
begin
for x:=2 to (a-1) do
if a mod x = 0 then
begin bf:=bf+1;
faktor[bf]:= x;
end;
end;
bf:=bf+1; faktor[bf]:=a;
writeln('Faktor-faktor dari ',a,'adalah');
for x:=1 to bf do writeln (faktor[x]:5);
if bf=2 then writeln('jelas bahwa ',a,'prima')
else writeln('jelas bahwa ',a,'komposit');
readln;
end.
