DUNIA ILMU

Program bilangan_prima;
var bil: integer;
begin

write(’ Masukkan angka: ‘);readln(bil);
if ((bil=2) or (bil=3) or (bil=5) or (bil=7)) then
write(’ bilangan prima’)
else if ((bil mod 2 <> 0) and (bil mod 3 <> 0) and (bil mod 5 <> 0) and (bil mod 7 <> 0)) then
write(’ bilangan prima’)
else write(’ bukan bilangan prima’);
readln;
end.