ciąg fibonacciego

 program funkcja;
 uses crt;
 var
 a,i,b,c,d: integer;
 nww:real;

 begin
 b:=1;
 writeln('podaj a');
  readln(d);
  a:=1;
  b:=1 ;
 for i:=2 to d do begin
 c:=a+b;
 a:=b;
 b:=c
    end;

  writeln(c);


   repeat until keypressed;
  end.