Deret Fibonacci dengan Pascal

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.