Определить количество дней в месяце для высокосного года

uses crt;
type mes=1..12;{пишем свой тип, нам надо всего 12 чисел}
var m:mes;
    k:byte;
begin
clrscr;
repeat
write('Введите номер месяца 1-12:');
readln(m);
until m in[1..12];{проверяем правильность ввода}
case m of
2:write('28 дней');
4,6,9,11:write('30 дней');
else write('31 день');
end;
readln
end.

program c16;
var n:20..69;
begin
repeat
write('vvedite vozrast');
readln(n);
until n in[20..69]
case n of
21,31,41,51,61 : writeln('god');
22,23,24,32,33,34,42,43,44,52,53,54,62,63,63 : writeln('goda');
else writeln('let')
end;
readln;
end.

case n mod 10 of
  0,5,6,7,8,9:writeln(n,' лет');
  2,3,4:writeln(n,' года');
  1:writeln(n,' год');
  end;

case n mod 10 of
  1:writeln(n,' год');
  2,3,4:writeln(n,' года');
  else writeln(n,' лет');
  end;

program zodiac;
Uses crt;
var d,m,k:byte;
begin
clrscr;
repeat
write('месяц: ');
readln(m);
until m in [1..12];{проверяем правильность ввода месяца}
repeat
k:=0;
write('день: ');
readln(d);
if ((m=2)and(d>29))or((m in [1,3,5,7,8,10,12])and(d>31))
or((m in [4,6,9,11])and(d>30))or(d<1)then k:=1;{проверяем правильность ввода дня}
until k=0;
case m of
1:case d of{перебираем месяцы}
  1..19:write('Козерог');{перебираем дни}
  20..31:write('Водолей');
  end;
2:case d of
  1..18:write('Водолей');
  19..29:write('Рыбы');
  end;
3:case d of
  1..20:write('Рыбы');
  21..31:write('Овен');
  end;
4:case d of
   1..21:write('Овен');
   22..30:write('Телец');
   end;
5:case d of
   1..2:write('Телец');
   21..31:write('Близнецы');
   end;
6:case d of
   1..21:write('Близнецы');
   22..30:write('Рак');
   end;
7:case d of
   1..22:write('Рак');
   23..31:write('Лев');
   end;
8:case d of
   1..22:write('Лев');
   23..31:write('Дева');
   end;
9:case d of
   1..22:write('Дева');
   23..30:write('Весы');
   end;
10:case d of
   1..22:write('Весы');
   23..31:write('Скорпион');
   end;
11:case d of
   1..22:write('Скорпион');
   23..30:write('Стрелец');
   end;
12:case d of
   1..21:write('Стрелец');
   22..31:write('Козерог');
   end;
end;
readln
end.