program kdn;
type mounth=(jan,feb,mar,apr,may,jun,jul,aug,sen,okt,nov,dec);
var kd:array [mounth] of 28..31;
    i:mounth;
begin for i:=jan to dec do
         if i>=aug then if ord(i) mod 2=0
                      then kd[i]:=30
                      else kd[i]:=31
                   else if ord(i)mod 2=0
                      then kd[i]:=31
                      else kd[i]:=30;
        kd[feb]:=28
end.
