Знайти мінімальні ДНФ і КНФ

Нужно идти с заду наперёд. Если число нечётное - отнять 3, потом поделить на 2.

Например число 47 нечётное - отнять 3, потом разделить на 2, и так пока не будет 1. Чтобы получить 47 из 1 нужно записать команды получения из 47 1 в обратном порядке с обратными операциями.

Например число 11.

чтобы из 11 получить 1 нужно отнять 3. 11 - 3 = 8, разделить на 2, 8/2 = 4, отнять 3.

Чтобы из числа 1 получить 11 нужно записать команда получения из числа 11 1 в обратном порядке, заменив деление умножением, вычитание прибавлением: к 1 прибавить 3, умножить на 2, прибавить 3.

В программировании можно реализовать данный алгоритм с рекурсии, с стека, либо с массива.

Var
begin
readln(n);
if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end;
if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end;
if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end;
if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end;
if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end;
if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end;
if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end;
if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end;
И так до 12 раз...
Я не уверен что тебе нужен такой монстр...
В место к примеру 1 месяца пишешь январь...