Script Program Menentukan Bilangan Prima Dengan Pascal

Kali ini saya akan memposting Script Program Menentukan Bilangan Prima Dengan Pascal, kebetulan sekarang adalah tugas saya di sekolah ;).
kali ini saya menggunakan Free Pascal.

Beriku adalah codingnya :



Program Menentukan_Bilangan_Prima;
uses crt;
label MULAI, ulang, akhir;
var bil,s : longint;

BEGIN clrscr;
      textbackground(white);
      clrscr;
      textcolor(black);writeln('---------------------------------------------------------------');
      textcolor(red);writeln('  PROGRAM MENENTUKAN BILANGAN PRIMA ATAU BUKAN BILANGAN PRIMA  ');
      textcolor(blue);writeln('            I Komang Oktarama Bagus Permatawan                 ');
      textcolor(black);writeln('---------------------------------------------------------------');
      textcolor(black);writeln;
      write('Masukan Bilangan yang akan dicoba ! : '); readln(bil);
      if bil<= 1 then
      begin
      textcolor(red);writeln('Tidak Termasuk Bilangan Prima');
      goto MULAI;
      end;

      s:=2;
      repeat
      if (bil mod s = 0) and (bil<>2) then
      begin
      textcolor(red);writeln('Tidak Termasuk Bilangan Prima');
      goto MULAI;
      end;

      s:= s+1;
      until(s>=bil div 2);
      textcolor(green);writeln('Termasuk Bilangan Prima');
      MULAI:
      readln;

textcolor(lightblue);writeln('                     Terimakasih      ');
textcolor(lightred);writeln('               Tekan ENTER untuk Keluar ! ');
textcolor(black);writeln('            http://oktaramabp.blogspot.com ');
readln;
end.


dan hasilnya akan seperti dibawah ini :

Semoga dapat bermanfaat bagi pembaca semua ;)