Menentukan bilangan ganjil, genap dan prima dengan pascal

1: Program JenisBilangan;
 2: var bil: longint;
 3: begin
 4:   writeln('MENENTUKAN JENIS BILANGAN');
 5:   writeln('-------------------------');
 6:   write('Masukkan angka: ');readln(bil);
 7:   if ((bil=2) or (bil=3) or (bil=5) or (bil=7)) then
 8:     write('bilangan prima')
 9:   else if ((bil mod 2 <> 0) and (bil mod 3 <> 0) and
        (bil mod 5 <> 0) and (bil mod 7 <> 0)) then
10:     write('bilangan prima')
11:   else write('bukan bilangan prima');
12:   if bil mod 2 = 0 then
13:     writeln(' dan genap')
14:   else
15:     writeln(' dan ganjil');
16:   readln;
17: end.