Подскажите, как правильно решить. Я когда ввожу данные в програму Паскаль, мне высвечивается, что в 17 строке ошибка и я не могу дальше понять, что делать. Ввести номер месяца и вывести количество дней в этом месяце.
Решение: Число дней по месяцам:
28 дней – 2 (февраль)
30 дней – 4 (апрель), 6 (июнь), 9 (сентябрь), 11 (ноябрь)
31 день – 1 (январь), 3 (март), 5 (май), 7 (июль),
8 (август), 10 (октябрь), 12 (декабрь)
Особенность: Выбор не из двух, а из нескольких вариантов в зависимости от
номера месяца.
program qq;
var M, D: integer;
begin
writeln('Введите номер месяца:');
read ( M );
case M of
2: begin D := 28; end;
4,6,9,11: begin D := 30; end;
1,3,5,7,8,10,12: D := 31;
else D := -1;
end;
if D > 0 then
writeln('В этом месяце',D, ' дней.')
else
writeln('Неверный номер месяца');
end.

a10 = []

b10 = []

c10 = []

res10a=0

res10b=0

res10c=0

a10 += [int(input('Введите для %d ученика 10А = '%(i+1))) for i in range(0,5)]

b10 += [int(input('Введите для %d ученика 10Б = '%(i+1))) for i in range(0,5)]

c10 += [int(input('Введите для %d ученика 10В = '%(i+1))) for i in range(0,5)]

for i in range(5):

   res10a += a10[i]

for i in range(5):

   res10b += b10[i]

for i in range(5):

   res10c += c10[i]

print("Cреднее время заплыва учениками 10A: ",(float(res10a)/5))

print("Cреднее время заплыва учениками 10Б: ",(float(res10b)/5))

print("Cреднее время заплыва учениками 10В: ",(float(res10c)/5))

#include <iostream>

using namespace std;

int trianglenumber(int n)

{

int number=0;

for(int i=0;i<n;i++)

{

 number=number+(i+1);

}

return number;

}

void delcount(int n)

{

for(int i=1;i<=n;i++)

{

 if(n%i==0) cout<<i<<" ";

}

}

int main()

{

int UsersNumber;

cout<<"Enter your number:"<<endl;

cin>>UsersNumber;

cout<<"Your triangle number is: "<<trianglenumber(UsersNumber)<<endl;

delcount(trianglenumber(UsersNumber));

system("pause");

return 0;

}

Программа простенькая, но ты сам попросил "какой либо программы"