program tab_fib_iter;
const rozmiar = 48;
type tablica  = array[1..rozmiar] of longint;
var i,j,k : longint;
   tab    : tablica;
function fib(m: longint) : longint;
var fi1,fi2	: longint;
   i		: integer;
begin
   fi1 := 0;
   fi2 := 1;
   if m=0 then fi2:=fi1
   else 
	  for i:= 2 to m do 
	  begin
		 fi2 := fi2 + fi1;
		 fi1 := fi2 - fi1
	  end;
   fib:=fi2
end; { fib }
procedure druk(t : tablica);
var i :  integer;
begin
   for i:= 1 to rozmiar do
	  if i mod 6 = 0 then writeln(t[i]:12)
	  else write(t[i]:12)
end; { druk }
begin
   for i:= 1 to 1000 do
   for j:= 1 to 1000 do
   for k:= 1 to rozmiar do
	  tab[k]:=fib(k);
   writeln('Kolejne wartosci funkcji Fibonacciego od 1 do ',rozmiar:2);
   druk(tab)
end.