Program Menentukan Bilangan Prima di Turbo Pascal

Disini saya akan memberikan coding membuat Program sederhana di Turbo Pascal yaitu Membuat Program Menghitung Bilangan Prima dengan format .PAS

Coding

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

BEGIN
ulang :
clrscr;
      textcolor(white);writeln('------------------------------------------------------');
      textcolor(lightred);writeln('--PROGRAM MENENTUKAN BILANGAN PRIMA ATAU BUKAN PRIMA--');
      textcolor(yellow);writeln('-----------------Created by : Adx---------------------');
      textcolor(white);writeln('------------------------------------------------------');
      textcolor(lightblue);writeln;
      write('  -MASUKAN BILANGAN YANG INGIN DICOBA : '); readln(bil);
      if bil<= 1 then
      begin
      textcolor(lightred);writeln;
      write('*Bukan Bilangan Prima');
      goto MULAI;
      end;

      s:= s+1;
      until(s>=bil div 2);
      textcolor(lightgreen);writeln;
      write('*Bilangan Prima');
      MULAI:

textcolor(yellow);writeln;
writeln;
writeln('Ingin Mencoba Lagi ( ya/tidak ) ? :');
readln(coba);
if coba ='ya' then goto ulang else
goto akhir;
akhir :
writeln;
textcolor(lightblue);writeln('               ------Terimakasih------');
readln;
END.

Hasil Screenshot nya