Помогите паскаль

[Vanet]

Плиз помогите.

Пользователь должен вводить число и месяц рождения (цифрой), прога должна выводить кто ты по гороскопу, учитывая, что 22 число переход на следующий знак.

Зараннее спасибо!!!

P/S/ Вот пробовал, но получилась бессмысленица, т.к. в промежуток не попадает ни одно число!
Вот что у меня получилось, подредактируйте.

Program zodiak;
var n:integer;
Begin
Writeln ('Vvedite ddmm');
Readln (n);
If (n>2103) and (n<2004) then
writeln ('oven');
If (n>2104) and (n<2105) then
writeln ('telec');
If (n>2205) and (n<2106) then
writeln ('blizneci');
If (n>2206) and (n<2207) then
writeln ('rak');
If (n>2307) and (n<2308) then
writeln ('lev');
If (n>2408) and (n<2309) then
writeln ('deva');
If (n>2409) and (n<2310) then
writeln ('vesi');
If (n>2410) and (n<2211) then
writeln ('skorpion');
If (n>2311) and (n<2112) then
writeln ('strelec');
If (n>2212) and (n<2001) then
writeln ('kozerog');
If (n>2101) and (n<1802) then
writeln ('Vodolei');
If (n>1902) and (n<2003) then
writeln ('riba');
end;
End.

[Alar]

Ваш знак зодиака - Паскаль

[Alex21]

Я же тебе решение уже написал.
http://www.programmersforum.ru/showthread.php?t=7346

[Vanet]

Sorry. Буду исправляться!