1 program paka; 2 3 var rok:word; 4 mesic:byte; 5 jaka:string[5]; 6 7 const letos=2005; 8 9 begin 10 write('zadej rok narození: '); 11 readln(rok); 12 if (letos-rok)<18 then begin 13 write('Jsi mladá páka'); 14 jaka:='maldá'; 15 end else begin 16 jaka:='stará'; 17 write('Jsi stará páka'); 18 end; 19 writeln; 20 21 write('zadej měsíc narození: '); 22 read (mesic); 23 case mesic of 24 1..3: write('Jsi zimní páka'); 25 4..6: write('Jsi jarní páka'); 26 7..9: write('Jsi letní páka'); 27 10..12: write('Jsi podzimní páka'); 28 end; 29 writeln; 30 writeln; 31 case mesic of 32 1..3: write('Jsi ',jaka,'zimní páka'); 33 4..6: write('Jsi ',jaka,' jarní páka'); 34 7..9: write('Jsi ',jaka,' letní páka'); 35 10..12: write('Jsi ',jaka, 'podzimní páka'); 36 end; 37 writeln; 38 end.