Вывести знак Зодиака, соответствующий дате - Pascal ABC - Ответ 2043185

Uses CRT;
 
var s:string;
    D,M:byte;
 
begin
 ClrScr;
 repeat
  write('Ââåäèòå äåíü: ');
  readln(D);
 until D in [1..31];
 repeat
  write('Ââåäèòå ìåñÿö: ');
  readln(M);
 until M in [1..12];
Case M of
 1:  If D < 20 Then writeln('Êîçåðîã') Else writeln('Âîäîëåé');
 2:  If D < 19 Then writeln('Âîäîëåé') Else writeln('Ðûáû');
 3:  If D <= 20 Then writeln('Ðûáû') Else writeln('Îâåí');
 4:  If D < 20 Then writeln('Îâåí') Else writeln('Òåëåö');
 5:  If D <= 20 Then writeln('Òåëåö') Else writeln('Áëèçíåöû');
 6:  If D <= 21 Then writeln('Áëèçíåöû') Else writeln('Ðàê');
 7:  If D <= 22 Then writeln('Ðàê') Else writeln('Ëåâ');
 8:  If D < 23 Then writeln('Ëåâ') Else writeln('Äåâà');
 9:  If D < 23 Then writeln('Äåâà') Else writeln('Âåñû');
 10: If D < 23 Then writeln('Âåñû') Else writeln('Ñêîðïèîí');
 11: If D <= 22 Then writeln('Ñêîðïèîí') Else writeln('Ñòðåëåö');
 12: If D <= 21 Then writeln('Ñòðåëåö') Else writeln('Êîçåðîã');
End;
end.