Fibonacci_Sequencer.pas

{
 @author Paulo Riceli Dias Lelis
 @cc gpc -Wall fibonacci.pas
 @version 1.0
 @since 2013-02-07 02:15 (GMT -03:00)
}
program TheFibonacciSequencer;
const
    END_SEQUENCE : integer = 10;
var
    init : integer;
    first : integer = -1;
    second, third : integer = 0;

procedure getFibonacci;
begin
    write(third * (-1), " ");
    third := first + second;
    first := second;
    second := third;
end;

begin
    for init := 0 to END_SEQUENCE do
    begin
        getFibonacci;
    end;
    write("\n");
end.