Program Pascal Untuk Menamilkan Bilangan Prima Dengan Array dan Record

Sebelumnya saya sudah pernah membuat program pascal untuk menampilkan bilangan prima ke - n , sekarang saya akan menunjukan salah satu contoh program pascal untuk menampilkan bilangan prima dengan menggunakan array dan juga record. untuk lebih jelasnya langsung saja ke programnya :

program test; uses crt; type nilai = record prim : integer; end; var sis : array[1..100] of nilai; i,j,n : integer; bil,ang : integer; begin clrscr; readln(n); for i := 1 to n do begin sis[i].prim:=i; For j:= 2 to i-1 Do Begin bil := (i mod j); If bil = 0 then sis[i].prim:=0; End; If sis[i].prim <> 0 Then write(sis[i].prim); End; Readln; End.

Coba anda jalankan maka hasilnya akan terlihat pada gambar di atas tadi.