Бабочки Пипа, зизи Лулу и Коко в воскресенье побывали на балу, концерте, ярмарке и выставке Все мероприятия проходили в
разных местах, на лугу, в лесу, у реки и на холме. Каждая бабочка
рассказала подругам о том, какие цветы растут в этих местах. Они
обсуждали ромашки, вьюнки, васильки и лютики. Определи кто из
бабочек где развлекался и какие цветы видел, если известно
следующее:
На концерт летала не Зизи, ана бал не Коко
Пипа не была на выставке, а васильки видела не Лулу,
Выставка проходила в лесу, а вьюнки растут на лугу, где была
ярмарка
и Васильков очень много там, где проходил бал, но Пила туда не
попала, она в это время была у реки,
Вьюнками любовалась Коко, а лютикали Пила

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

Const n=10; 
type ar=array[1..n+1] of integer;
var 
a:ar; i,p:integer; 
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(31);
 write(a[i]:4);
 end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n 
 then writeln('Значение 17 найдено, номер элемента = ',i)
 else writeln('Значения 17 в массиве нет');
end.

Пример:
Массив A:
  14   5   7  17  25  15  28   0  24   0
Значение 17 найдено, номер элемента = 4