{* Задача 161 *}

Unit ZADACH161;
Interface
Implementation
Begin
 writeln('Пара кроликов каждый год дает приплод двух (самку и самца)кот.через 2месяца способны давать новый приплод.Ск-ко кроликов будет через год.} ');
End.

Program zadach161;

Uses zadach161.pas; {* Эту строку можно удалить *}
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 {* Цикл для k => [10 .. 12] *}
    writeln(f(k));
  readln; {* Ждем подтверждения пользователя *}
End.