Даны два целых числа: 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) — Pascal(Паскаль)

Program Case20;

Var
  d, m: byte;
  temp: real;

Begin
  write('Введите день:');
  readln(d);
  write('Введите номер месяца:');
  readln(m);
  case m of
    1:
      if (d >= 20) then
        write('«Водолей»')
      else
        write('«Козерог»');
    2:
      if (d >= 19) then
        write('«Рыбы»')
      else
        write('«Водолей»');
    3:
      if (d >= 21) then
        write('«Овен»')
      else
        write('«Рыбы»');
    4:
      if (d >= 20) then
        write('«Телец»')
      else
        write('«Овен»');
    5:
      if (d >= 21) then
        write('«Близнецы»')
      else
        write('«Телец»');
    6:
      if (d >= 22) then
        write('«Рак»')
      else
        write('«Близнецы»');
    7:
      if (d >= 23) then
        write('«Лев»')
      else
        write('«Рак»');
    8:
      if (d >= 23) then
        write('«Дева»')
      else
        write('«Лев»');
    9:
      if (d >= 23) then
        write('«Весы»')
      else
        write('«Дева»');
    10:
      if (d >= 23) then
        write('«Скорпион»')
      else
        write('«Весы»');
    11:
      if (d >= 23) then
        write('«Стрелец»')
      else
        write('«Скорпион»');
    12:
      if (d >= 22) then
        write('«Козерог»')
      else
        write('«Стрелец»');
  end;

end.