Fibonacci for lutoma's performance comparisons - in object free pascal

unbenannt.pas

program unbenannt;

{$mode objfpc}{$H+}

uses sysutils;

var i, nums: integer;
var a, b, now: real;

BEGIN
	a := 0;
	b := 1;
	now := 0;
	if ParamCount = 1 then begin
		nums := strtoint(ParamStr(1));
		for i:=0 to nums do begin
			now := a+b;
			b := a;
			a := now;
			writeln(floattostr(a))
		end;
	end else begin
		writeln('USAGE '+ParamStr(0)+' [amout of numbers to be generated]');
		exit;
	end;	
END.