Исправьте ошибки пожалуйста Pascal!Линейные алгоритмы.Пара кроликов каждый год дает приплод двух (самку и самца) которые через 2 месяца способны даватьновый приплод. Сколько кроликов будет через год
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. вот если просто исправить ошибки
