Mencari Bilangan Prima 1 Sampai 200 Dengan Pascal

Dibawah ini adalah program dari pascal yaitu program MENCARI BILANGAN PRIMA 1 SAMPAI 200 yang salah satu tugas mata kuliah penulis, mungkin masih ada yang membutuhkannya atau yang lagi belajar pascal khususnya bilangan prima.
Langsung saja dicoba scripnya mudah-mudahan bermanfaat. 

Program Mencari_Bilangan_Prima;

Uses winCrt;

Var

   Prima : Array[1..200] of Integer;

   i,j : Integer;

   bil : Integer;

Begin

     ClrScr;

     For i := 2 to 200 Do

     Begin

          Prima[i] :=i;

          For j:= 2 to i-1 Do

          Begin

               bil := (i mod j); {* i dibagi j dicek apakah 0*}

               If bil = 0 then Prima [i] :=0; {* jika habis dibagi, berarti bkn prima*}

          End;

          If Prima [i] <> 0 Then Write(Prima[i],' '); {*Cetak array yg prima*}

     End;

     Readln;

End.

Dan dibawah  ini adalah OUTPUT/TAMPILAN dari scrip diatas.