Cara Menentukan Bilangan Prima dengan PROCEDURE di Pascal

Pada posting Hari ini Saya mao Memberikan "sesuatu"... (ala Syahroni),.. hhe
Yaitu bagaimana cara Menentukan Bilangan Prima dengan Menggunakan PROCEDURE dalam Program PASCAL ,.
Ayo kita buktikan..,

buka dulu aplikasi Turbo Pascal nya,.. download pascal
program bil_prima;
uses wincrt;
var i, n, x,z : integer;
procedure nilai;
begin
n:=0;
for i:= 1 to x do
begin
    if x mod i = 0 then
    begin
     n:=n+1;
    end;
end;
end;

begin
clrscr;
write ('Input bilangan prima sampai =');readln (z);
writeln;
for x:= 1 to z do
   begin
     nilai;
     if n = 2 then
     write(x,' ');
   end;

end.

Lihat juga: Info Terbaru Bitcoin di Digital currency exchange listing
Maka hasil nya adalah seperti ini :