На вход подаётся файл input2.txt, в котором неизвестное количество строк, в каждой из которых неизвестное количество целых чисел в
промежутке от 1 до 1000. Посчитать количество и сумму чисел в каждой
отдельной строке. Сформировать файл output2.txt, количество строк в
котором будет совпадать с количеством строк в первоначальном файле. В
каждой строке должно находится 2 числа – количество и сумма чисел в
соответствующей строке.
Пример файла Input2.txt
1 2 3
4 5
10 20 30 40
Пример файла output2.txt
3 6
2 9
4 100

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(2,4,-10,30);   a.println(4); writeln(4*a.colcount*'-');   writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19))           .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив ***   24  16  22  12     2    5    1    8 п = 15360

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