fibonacci

program deret_bil_prima;
uses crt;
var

a,c,j,i:integer;
begin
clrscr;
write('Masukan angka :');readln(a);
for j:=1 to a do
begin
c:=0;
for i:=1 to j do
begin
if j mod i = 0 then
c:=c+1;
end;
if c=2 then
write(j,' ')
end;
readln;
end.