ОЧЕНЬ
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 месяца пишешь январь...

ответ: зеленая ручка, синий карандаш, желтый маркер, оранжевый фломастер

1) синий лежит между оранжевым и зеленым т. е. либо "оранжевый, синий, зеленый", либо "зеленый, синий, оранжевый"
2) синий и оранжевый не лежат рядом, значит либо "оранжевый, желтый, синий, зеленый", либо "зеленый, синий, желтый, оранжевый"
3) слева от желтого лежит карандаш, значит "оранжевый карандаш, желтый, синий, зеленый", либо "зеленый, синий карандаш, желтый, оранжевый"
4) маркер и карандаш  не лежат с краю, значит "зеленый, синий карандаш, желтый маркер, оранжевый"
5) фломастер лежит правее ручки и карандаша: "зеленая ручка, синий карандаш, желтый маркер, оранжевый фломастер"