Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 37 стр.

    {Знаки зодиака: Ari – Овен, Tau – Телец, Cem – Близнецы,
Can – Рак, Leo – Лев, Vir – Дева, Lib – Весы, Sco – Скорпион,
Sag – Стрелец, Cap – Козерог, Agu – Водолей, Fis – Рыбы}
    Begin
    ClrScr;
    WriteLn (' Введите месяц ') ;
    ReadLn (m) ;
    WriteLn (' Введите день') ;
    ReadLn (d) ;
    Case m of
    1 : If d <= 20 Then Zod := Cap Else Zod := Agu ;
    2 : If d <= 18 Then Zod := Agu Else Zod := Fis ;
    3 : If d <= 20 Then Zod := Fis Else Zod := Ari ;
    4 : If d <= 20 Then Zod := Ari Else Zod := Tau ;
    5 : If d <= 21 Then Zod := Tau Else Zod := Cem ;
    6 : If d <= 21 Then Zod := Cem Else Zod := Can ;
    7 : If d <= 22 Then Zod := Can Else Zod := Leo ;
    8 : If d <= 23 Then Zod := Leo Else Zod := Vir ;
    9 : If d <= 23 Then Zod := Vir Else Zod := Lib ;
    10: If d <= 23 Then Zod := Lib Else Zod := Sco ;
    11: If d <= 22 Then Zod := Sco Else Zod := Sag ;
    12: If d <= 21 Then Zod := Sag Else Zod := Cap
    End;
    WriteLn (' Ваш знак Зодиака: ') ;
    Case Zod Of
    Ari : WriteLn (' Oven ') ;
    Tau : WriteLn (' Telec ') ;
    Cem : WriteLn (' Blicneci ') ;
    Can : WriteLn (' Rak ') ;
    Leo : WriteLn (' Lev ') ;
    Vir : WriteLn (' Deva ') ;
    Lib : WriteLn (' Beci ') ;
    Sco : WriteLn (' Skorpion ') ;
    Sag : WriteLn (' Ctrelec ') ;
    Cap : WriteLn (' Koserog ') ;
    Agu : WriteLn (' Vodoley') ;
    Lib : WriteLn (' Beci ') ;
    Fis : WriteLn (' Ribi ') ;
                             37