Koding Pascal untuk Mencari Bilangan Prima

      Ok, selanjutnya kembali lagi tentang bahasa pemrograman pascal. Mungkin ada yang lagi nyari koding (coding) pascal bagaimana menampilkan bilangan prima. Bilangan prima adalah bilangan yang hanya habis dibagi dengan dua angka, yaitu 1 dan bilangan itu sendiri. Misalnya bilangan 7, hanya akan habis dibagi 1 dan 7 (bilangan itu sendiri), jadi blangan 7 termasuk bilangan prima.
     Sekarang, bagaimana menuangkan pengertian tersebut kedalam sebuah bahasa pemrograman yang sederhana (pascal)? Kita harus mengggunan perulangan bersarang, yaitu sebuah perulangan yang didalamnya berisi perulangan lagi. Kita lihat kode programnya :
uses crt;
var i1,j1,prima1:integer;
function prima(i,j:integer):integer;
var k:integer;
begin
i:=1;
     while i<=100 do begin
     k:=0;
     j:=1;
          while j<=i do begin
          if i mod j=0 then
          k:=k+1;
          j:=j+1;
          end;

          if k=2 then
          begin
          prima:=i;
          write(i);
          i:=i+1;
          end
          else i:=i+1;
     end;
end;
begin
clrscr;
          prima1:=prima(i1,j1);
          write(prima1:4);
readln;
end.
   Kode program diatas adalah program yang akan menampilkan bilangan prima antara 1 sampai 100. Nah, kalo batasannya pengen bisa yang diubah-ubah, maka tinggal ngedit sendiri. Itung-itung buwat lathan. Tapi kalo masih bingung, bisa di diskusikan di sini :)
sekian.