Deret Fibonacci dengan Pascal

Hasil

source code


program fibonacci;
uses wincrt;
var
i, inp, a, n1, n2 : integer;
begin
n1:=0;
n2:=1;

write('masukan jumlah deret fibonacci : ');
readln(inp);
writeln('Deret Fibonacci');
writeln;
write(n2,' ');
for i:=1 to inp-1 do
begin
a:=n2;
n2:=n2+n1;
n1:=a;
write(n2,' ');
end;
readln;
end.