Program bil. prima

Bilangan prima ialah bilangan yang tidak habis dibagi semua bilangan, kecuali dengan bilangan itu sendiri dan angka 1

Program ini akan menampilkan 'prima' jika user menginputkan bilangan prima, dan akan menampilkan 'bukan prima' jika user menginputkan selain bilangan prima.

*cat:dalam program ini saya hanya membatasi input angka sampai 100, jika anda ingin lebih, maka anda tinggal menambahkan sourcenya saja. hehe .

1. Tanpa menggunakan for
program bil_prima;
var
n:integer;
begin
readln(n);
if ((n=2)or(n=3)or(n=5)or(n=7))and(n<10)>
write('Prima')
else
if ((n mod 2<>0)and(n mod 3<>0)and(n mod 5<>0)and(n mod 7<>0)) then
write('Prima')
else
write('bukan prima');
readln;
end.

2. Menggunakan for-to-do

Membuat sebuah program bilangan prima dengan menggunakn for akan lebih mudah. Mengapa demikian? itu semua karena dengan menggunakan for-to-do kita dapat mengulang pembagian yang dilakukan oleh program.
program bil_prima;
var
i,c,n:integer;
begin
readln(n);
c:=0;
for i:=2 to n do
if (n mod i=0) then
c:=c+1;
if (c=1) then
write('Bilangan Prima')
else
write('bukan bilangan prima');
readln;
end.