Algoritma Untuk Bilangan Deret Fibonacci

program fibonacci;
var 
 a,b,c,i,l:integer;
begin
 write(‘angka’); 
readln(l);
 b:=1;
 a:=0;
 for i:=1 to l do
 begin
 write(b,’ ‘);
 c:=b+a;
 a:=b;
 b:=c;
 end;
readkey;
end.

tambahan nii Flowchart nya