Bilangan prima 2-30 (DELPHI)

{$APPTYPE CONSOLE}

var

angka:array[2..30]of integer;

i,j:integer;

bil:integer;

begin

for i:=2 to 30 do

begin

angka[i]:=i;

for j:=2 to i-1 do

begin

bil:=(i mod j);

if bil=0 then

angka[i]:=0;

end;

write(angka[i],' ')

end;

readln;

end.