program tab-rec-pas;
const rozmiar = 42;
type tablica  = array[1..rozmiar] of longint;
var j  : longint;
   tab : tablica;
function fib(m: longint) : longint;
begin
   if m=0 then fib:=0
   else if m=1 then fib:=1
   else  fib :=fib(m-1)+ fib(m-2)
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]:11)
	  else write(t[i]:11)
end; { druk }
begin
   for j:= 1 to rozmiar do
	  tab[j]:=fib(j);
   writeln('Kolejne wartosci funkcji Fibonacciego od 1 do ',rozmiar:2);
   druk(tab)
end.