pascal

Program Mencari_Bilangan_Prima_Dengan_Array;
Uses winCrt;
Var
   Prima : Array[1..100] of integer;
   i,j : Integer;
   bil : Integer;
Begin
     ClrScr;
     For i := 2 to 100 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 bukan prima*}
     End;
     if Prima[i] <> 0 Then Write(Prima[i],' ');{cetak array yang prima*}
     End;
     Readln;
     End.