Pemuda Pencari Bakat

program penyeleksian_bilangan;
uses wincrt;
var bil:integer;

begin
writeln('MENENTUKAN JENIS BILANGAN');
writeln('_________________________');
write('Masukan angka: ');readln(bil);
if ((bil=1)or (bil=9))then
write(bil , ' merupakan bilangan ganjil')
else
if (bil mod 2=1)then
write(bil , ' merupakan bilangan ganjil dan prima')
else
if ((bil mod 2<>0) and (bil mod 3<>0)and (bil mod 5<>0) and (bil mod 7<>0))then
write(bil,' merupakan bilangan prima')
else
if (bil=2) then
write(bil , ' merupakan bilangan genap dan prima')
else
if (bil mod 2=0) then
writeln(bil , ' merupakan bilangan genap');
end.