segitiga bilangan prima dengan pascal

uses crt;
var i,x,n,prima,bukanprima,c,z,l,d:integer;
simpan:array[1..10] of integer;


begin
clrscr;
l:=0;
for i:=2 to 30 do
begin
prima:=2;
for x:=2 to i-1 do
begin
if i mod x =0 then bukanprima:=i
else
prima:=i;

end;
if i<>bukanprima then
begin
l:=l+1;
simpan[l]:=prima;
end;
end;


for c:=1 to 4 do
begin
for z:=1 to c do
begin
inc(d);
write(simpan[d],' ');
end;
writeln;
end;
readln;
end.