Кто написал текст медвежонок? заранее

Текст медвежонок написал э.сетон-томпсон

Pascalabc var     a,b: integer; begin     readln(a,b);     case b of       1 : if a < = 19 then writeln('зима. козерог.') else writeln('зима. водолей.');       2 : if a < = 18 then writeln('зима. водолей.') else writeln('зима. рыбы.');       3 : if a < = 20 then writeln('весна. рыбы.') else writeln('весна. овен.');       4 : if a < = 19 then writeln('весна. овен.') else writeln('весна. телец.');       5 : if a < = 20 then writeln('весна. телец.') else writeln('весна. близнецы.');       6 : if a < = 20 then writeln('лето. близнецы.') else writeln('лето. рак.');       7 : if a < = 22 then writeln('лето. рак.') else writeln('лето. лев.');         8 : if a < = 22 then writeln('лето. лев.') else writeln('лето. дева.');       9 : if a < = 22 then writeln('осень. дева.') else writeln('осень. весы.');     10 : if a < = 22 then writeln('осень. весы.') else writeln('осень. скорпион.');     11 : if a < = 21 then writeln('осень. скорпион.') else writeln('осень. стрелец.');       12 : if a < = 21 then writeln('зима. стрелец.') else writeln('зима. козерог.');     end; end.