Составить программу, которая в зависимости от порядкового номера месяца выводит на экран количество дней в этом месяце. рассмотреть два случая: 1.год високосный. 2.год не является високосным

Program g; uses crt; var count, num, ch: integer; begin    clrscr;     writeln('год високосный? 1 - да, 0 - нет');     readln(ch);     if ch=1 then      begin        writeln('введите номер месяца');       readln(num);         сase num of          1, 3, 5, 7, 8, 10, 12: writeln('в месяце 31 день.');         4, 6, 9, 11: writeln('в месяце 30 дней.');         2: writeln('в месяце 29 дней');         else writeln('некорректный ввод данных')      end;     end      else if ch=0   then      begin        writeln('введите номер месяца');         readln(num);     сase num of            1, 3, 5, 7, 8, 10, 12: writeln('в месяце 31 день.');           4, 6, 9, 11: writeln('в месяце 30 дней.');           2: writeln('в месяце 28 дней');         else writeln('некорректный ввод данных')        end;       end    else writeln('некорректный ввод данных'); readln;   end.