Cara Mengecek Bilangan Prima di Pascal

Halo kawan - kawan, hari ini saya akan membagikan cara mengecek suatu bilangan prima atau tidak di Pascal, semoga bermanfaat ^^

ini source code nya

uses crt;

var a, b, p : integer;

ulang : char;

begin

clrscr;

p := 0;

write('Masukkan Bilangan : '); readln(b);

for a := 1 to b do

begin

 if b mod a = 0 then

   p := p+1;

end;

writeln();

if p = 2 then

    write(b,' Merupakan bilangan prima')

else

    write(b,' Bukan bilangan prima');

writeln();

readkey;

end.