{ HOROSKOP.PAS                                 Copyright (c) Durica }
{                                                                   }
{ Program učí na základe zadaného dňa a mesiaca ktoré užívateľ zadá }
{ znamenie vo zverokruhu.                                           }
{                                                                   }
{ Author: Mato Durica                                               }
{ Date  : 16.03.2009                           http://www.trsek.com }

program znamenie;

uses crt;

var m,d:byte ;


procedure januar;

   begin
    if d<21 then writeln('kozorozec');
     if d>20 then writeln('vodnar');
      if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure februar;

 begin
    if d<20 then writeln('vodnar');
     if d>19 then writeln('ryby');
       if d>29 then writeln('tento mesiac ma maximalne 29 dni');
    end;

procedure marec;

 begin
    if d<21 then writeln('ryby');
     if d>20 then writeln('baran');
       if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure april;

 begin
    if d<21 then writeln('baran');
     if d>20 then writeln('byk');
       if d>30 then writeln('tento mesiac ma len 30 dni');
    end;

procedure maj;

 begin
    if d<21 then writeln('byk');
     if d>20 then writeln('blizenci');
       if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure jun;

 begin
    if d<22 then writeln('blizenci');
     if d>21 then writeln('rak');
       if d>30 then writeln('tento mesiac ma len 30 dni');
    end;

procedure jul;

 begin
    if d<23 then writeln('rak');
     if d>22 then writeln('lev');
      if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure august;

 begin
    if d<24 then writeln('lev');
     if d>23 then writeln('panna');
       if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure september;

 begin
    if d<24 then writeln('panna');
     if d>23 then writeln('vahy');
       if d>30 then writeln('tento mesiac ma len 30 dni');
    end;

procedure oktober;

 begin
    if d<24 then writeln('vahy');
     if d>23 then writeln('skorpion');
       if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure november;

 begin
    if d<23 then writeln('skorpion');
     if d>22 then writeln('strelec');
       if d>30 then writeln('tento mesiac ma len 30 dni');
    end;

procedure december;

 begin
    if d<22 then writeln('strelec');
     if d>21 then writeln('kozorozec');
       if d>31 then writeln('tento mesiac ma len 31 dni');
    end;





begin
clrscr;

writeln('napis mesiac kedy si sa narodil');
 readln(m);

writeln('napis den kedy si sa narodil');
 readln(d);

 if m=1  then januar;
 if m=2  then februar;
 if m=3  then marec;
 if m=4  then april;
 if m=5  then maj;
 if m=6  then jun;
 if m=7  then jul;
 if m=8  then august;
 if m=9  then september;
 if m=10 then oktober;
 if m=11 then november;
 if m=12 then december;
 if m>12 then  writeln('mesiacov je len 12');




    readln;
     end.
 else