Даны 2 целых числа: D(день) и M(месяц), определяющие правильную дату. Вывести знак зодиака, соответствующий этой дате: «ВОДОЛЕЙ»(20.1-18.2), «РЫБЫ»(19.2-20.3), «ОВЕН»(21.3-21.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)- Pascal(Паскаль)

program zodiac;
Uses crt;
var d,m,k:byte;
begin
clrscr;
repeat
write('месяц: ');
readln(m);
until m in [1..12];{проверяем правильность ввода месяца}
repeat
k:=0;
write('день: ');
readln(d);
if ((m=2)and(d>29))or((m in [1,3,5,7,8,10,12])and(d>31))
or((m in [4,6,9,11])and(d>30))or(d<1)then k:=1;{проверяем правильность ввода дня}
until k=0;
case m of
1:case d of{перебираем месяцы}
  1..19:write('Козерог');{перебираем дни}
  20..31:write('Водолей');
  end;
2:case d of
  1..18:write('Водолей');
  19..29:write('Рыбы');
  end;
3:case d of
  1..20:write('Рыбы');
  21..31:write('Овен');
  end;
4:case d of
   1..21:write('Овен');
   22..30:write('Телец');
   end;
5:case d of
   1..2:write('Телец');
   21..31:write('Близнецы');
   end;
6:case d of
   1..21:write('Близнецы');
   22..30:write('Рак');
   end;
7:case d of
   1..22:write('Рак');
   23..31:write('Лев');
   end;
8:case d of
   1..22:write('Лев');
   23..31:write('Дева');
   end;
9:case d of
   1..22:write('Дева');
   23..30:write('Весы');
   end;
10:case d of
   1..22:write('Весы');
   23..31:write('Скорпион');
   end;
11:case d of
   1..22:write('Скорпион');
   23..30:write('Стрелец');
   end;
12:case d of
   1..21:write('Стрелец');
   22..31:write('Козерог');
   end;
end;
readln
end.