Знаки зодиака, календарь Опции

[Анна]

Вот условие. Взято с учебника , но решения там нет. Пыталась сделать сама .. ничего не выходит

Даны два целых числа: D (день) и M (месяц), определяющие правильную дату. Вывести знак Зодиака, соответствующий этой дате: «Водолей» (20.1–18.2), «Рыбы» (19.2–20.3), «Овен» (21.3–19.4), «Телец» (20.4–20.5), «Близнецы» (21.5–21.6), «Рак» (22.6–22.7), «Лев» (23.7–22.8), «Дева» (23.8–22.9), «Весы» (23.9–22.10), «Скорпион» (23.10–22.11), «Стрелец» (23.11–21.12), «Козерог» (22.12–19.1).

uses crt;
var
D,M: integer;

begin
clrscr;
write ('Введите день: '); readln (D);
write ('Введите месяц: '); readln(M);

case d and m of
(20 and 1)..(18 and 2): write ('Водолей');
(19 and 2)..(20 and 3): write ('Рыба');
(21 and 3)..(19 and 4): write ('Овен');
(20 and 4)..(20 and 5): write ('Телец');
(21 and 5)..(21 and 6): write ('Близнецы');
(22 and 6)..(22 and 7): write ('Рак');
(23 and 7)..(22 and 8): write ('Лев');
(23 and 8)..(22 and 9): write ('Дева');
(23 and 9)..(22 and 10): write ('Весы');
(23 and 10)..(22 and 11): write ('Скорпион');
(23 and 11)..(21 and 12): write ('Стрелец');
(22 and 12)..(19 and 1): write ('Козерог');

end;
readkey;
end.

Знаю, что ересь
Вы мне хоть намекните, как сделать .. решение готовое не нужно

[GoodWind]

Аня.. объясни мне несмышленному что значит этот бред:

Код

case d and m of
(20 and 1)..(18 and 2): write ('Водолей');
(19 and 2)..(20 and 3): write ('Рыба');
....
end;