{* Знак задиака по дате *}

Unit Z_ZADIAK;
Interface
Implementation
Begin
 writeln('Знак задиака по дате');
End.

Program z_zadiak;

Uses z_zadiak.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  Day   : byte;
  Month : byte;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите номер месяца');
  readln(Month);
  writeln('Введите номер дня');
  readln(Day);
  Case Month Of     1:
    If Day > = 20 Then
      writeln('Водолей')
    Else writeln('Козерог');
      2:
  If Day > = 19 Then
    writeln('Рыбы')
  Else writeln('Водолей');
    3:
  If Day > = 21 Then
    writeln('Овен')
  Else writeln('Рыбы');
    4:
  If Day > = 20 Then
    writeln('Телец')
  Else writeln('Овен');
    5:
  If Day > = 21 Then
    writeln('Близнецы')
  Else writeln('Телец');
    6:
  If Day > = 22 Then
    writeln('Рак')
  Else writeln('Близнецы');
    7:
  If Day > = 23 Then
    writeln('Лев')
  Else writeln('Рак');
    8:
  If Day > = 23 Then
    writeln('Дева')
  Else writeln('Лев');
    9:
  If Day > = 23 Then
    writeln('Весы')
  Else writeln('Дева');
    10:
  If Day > = 23 Then
    writeln('Скорпион')
  Else writeln('Весы');
    11:
  If Day > = 23 Then
    writeln('Стрелец')
  Else writeln('Скорпион');
    12:
  If Day > = 22 Then
    writeln('Козерог')
  Else writeln('Стрелец');
End;
  readln; {* Ждем нажатия Enter *}
  End.....