По числу и номеру месяца вывести время года и знак задиака информатика плиз срочно

PascalABCvar   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.