Процедура ПриНачалеРаботыСистемы()
	//1
	Результат = новый Массив();
	Для НомерМесяца = 10  По 12 Цикл
		Если НомерМесяца = 10 Тогда
			Результат.Добавить(Строка(НомерМесяца) + "-й месяц: 31 день");
		ИначеЕсли НомерМесяца = 11 Тогда
			Результат.Добавить(Строка(НомерМесяца) + "-й месяц: 30 дней");
		Иначе
			Результат.Добавить(Строка(НомерМесяца) + "-й месяц: 31 день");
		КонецЕсли;
	КонецЦикла;

	//2
	Месяцы = новый Массив();
	Месяцы.Добавить("Январь");
	Месяцы.Добавить("Февраль");
	Месяцы.Добавить("Март");
	Месяцы.Добавить("Апрель");
	Месяцы.Добавить("Май");
	Месяцы.Добавить("Июнь");
	Месяцы.Добавить("Июль");
	Месяцы.Добавить("Август");
	Месяцы.Добавить("Сентябрь");
	Месяцы.Добавить("Октябрь");
	Месяцы.Добавить("Ноябрь");
	Месяцы.Добавить("Декабрь");

	ТекущийГод = Год(ТекущаяДата());
	Для месяц = 0 по Месяцы.ВГраница() Цикл
		Месяцы.Установить(месяц, Месяцы[месяц] + " " + Строка(ТекущийГод) + "г.");
	КонецЦикла;

	//3
	МассивЧисел = новый Массив();
	Для число = 1 по 150 Цикл
		МассивЧисел.Добавить(число);
	КонецЦикла;

	//3-a
	МассивЧетные = новый Массив();
	МассивЧетныеЧисла = новый Массив();
	Для индекс = 0 По МассивЧисел.ВГраница() Цикл
		Число = МассивЧисел[индекс];
		Если Число % 2 = 0 Тогда
			МассивЧетные.Добавить(Строка(Число) + " - четное");
			МассивЧетныеЧисла.Добавить(Число);
		КонецЕсли;

		Если индекс = 98 Тогда
			Прервать;
		КонецЕсли;
	КонецЦикла;
	//3-c
	Всего = МассивЧетныеЧисла.ВГраница();
	Пока Всего > -1 Цикл
		Если МассивЧетныеЧисла[Всего] % 4 = 0 Тогда
			МассивЧетныеЧисла.Удалить(Всего);
		КонецЕсли;
		Всего = Всего -1;
	КонецЦикла;


	//3-б
	МассивПростых = новый Массив();
	Для индекс = 1 По МассивЧисел.ВГраница() Цикл
		ПростоеЧисло = Истина;
		Число = МассивЧисел[индекс];
		Для делитель = 2 по Число-1 Цикл
			Если Число % делитель = 0 Тогда
				ПростоеЧисло = Ложь;
			КонецЕсли;
		КонецЦикла;

		Если Не ПростоеЧисло Тогда
			Продолжить;
		Иначе
			МассивПростых.Добавить(Число);
		КонецЕсли;
	КонецЦикла;


КонецПроцедуры