1 var mesic:integer;
 2 
 3 
 4 begin
 5 write('zadej měsíc');
 6 readln(mesic);
 7 
 8 case mesic of
 9     12: begin
10         writeln('jsi narozen v prosinci');
11         writeln('Veselé Vánoce');
12     end;
13     1: writeln('jsi narozen v lednu');
14     2..4: writeln('jsi narozen v únoru, březnu nebo dubnu');
15     7,9: writeln('jsi narozen v červenci nebo září');
16 else
17     writeln('Nejsi narozen v zimě');
18 end;
19 
20 end.