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.
Знаю, что ересь
Вы мне хоть намекните, как сделать .. решение готовое не нужно