Fibonacci : Pascal

program Fibonacci;
uses crt;

var
i : integer;
count : integer;
numbernow : integer;
numberbefore : integer;
hasil : integer;

begin
clrscr;
write('Enter counter : ');
readln(count);
i:=1;
numbernow:=1;
numberbefore :=0;
while(i<=count) do
begin
write(numbernow,' ');

hasil := numbernow+numberbefore;
numberbefore:=numbernow;
numbernow:=hasil;
i:=i+1;
end;
end.