Подсчет количества дней в месяцах — Pascal(Паскаль)

uses crt;

var
  m, year: integer;

begin;
  clrscr;
  writeln('Високосный ли год (1-да,0-нет)');
  readln(year);
  writeln('Введите номер месяца');
  readln(m);
  IF m = 1 THEN
    writeln('январь, 31-день');
  IF (m = 2) AND (year = 0) THEN
    writeln('февраль(невисокосный), 28-дней');
  IF (m = 2) AND (year = 1) THEN
    writeln('февраль(високосный), 29-дней');
  IF m = 3 THEN
    writeln('март, 31-день');
  IF m = 4 THEN
    writeln('апрель, 30-день');
  IF m = 5 THEN
    writeln('май, 31-день');
  IF m = 6 THEN
    writeln('июнь, 30-день');
  IF m = 7 THEN
    writeln('июль, 31-день');
  IF m = 8 THEN
    writeln('август, 31-день');
  IF m = 9 THEN
    writeln('сентябрь, 30-день');
  IF m = 10 THEN
    writeln('октябрь, 31-день');
  IF m = 11 THEN
    writeln('ноябрь, 30-день');
  IF m = 12 THEN
    writeln('декабрь, 31-день');

end.