Matematické Fórum

Máme osít N záhonů. Na každém záhonu může být buď mrkev nebo petržel, avšak nikdy nesmí být žádné dva sousední záhony osety petrželí. Sestavte program, který ze standardního vstupu přečte počet záhonů N a na standardní výstup vypíše číslo P, kde P je počet různých přípustných osetí.

Snažte se o efektivní výpočet. Vstupní číslo N nesmí být větší než 44. Pro výpočty použijte typ longint.

moje řešení je takhle , ale nevím dál protože mi to nevypisuje co má. Ďekuji

program mrkev;
var pocet:longint;
c,b:boolean;
x,y:longint;

function pocetmp(a:longint; my:boolean):longint;
begin
if my=false then
  begin
   pocetmp:=pocetmp(a-1, true);
  end else

pocetmp:=pocetmp(a-1,true)+pocetmp(a-1,false);
pocetmp:=pocetmp(a,true)+pocetmp(a,false);
end;
begin
readln(pocet);
c:=true;
b:=false;
x:=pocetmp(pocet,b);
y:=pocetmp(pocet,c);

writeln(x+y);
end.