Program FibonacciRekurzivne;

function Fibo(a: integer):integer;
begin
  case a of
    0: Fibo:=0;
    1: Fibo:=1
    else Fibo:=Fibo(a-2)+Fibo(a-1);
  end;
end;

var PocetMesicu, f: integer;

begin
  writeln('Zadej poet msc (cel nezporn slo): ');
  readln(PocetMesicu);
  if PocetMesicu < 0 then
    writeln('Chtl jsem nezporn slo.')
  else
  for f:=0 to PocetMesicu do
    write(Fibo(f), ' ');
  readln;
end.
