Листинг программы

program z58;

  uses crt;{Пара кроликов каждый год дает

  приплод двух (самку и самца)кот.через 2месяца

  способны давать новый приплод.Ск-ко кроликов

  будет через год.}

  var k : integer;

  function f(n:integer):integer;

  begin

     if n=0

        then f:=1

        else if n=1

               then f:=2

         else f:=f(n-2)+f(n-1);

   end;

   begin

     for k:=10 to 12 do

           writeln(f(k));

           readln;

   end.