---

НатуральноеЧисло = 0;
ВвестиЧисло(НатуральноеЧисло);

ЧислоЯвляетсяПростым = Истина;

Для Число = 2 По НатуральноеЧисло - 1 Цикл
	Если НатуральноеЧисло % Число = 0 Тогда
		ЧислоЯвляетсяПростым = Ложь;
		Прервать;
	КонецЕсли;
КонецЦикла;

Если ЧислоЯвляетсяПростым = Истина Тогда
	ОткрытьЗначение("Число " + НатуральноеЧисло + " является простым");
Иначе
	ОткрытьЗначение("Число " + НатуральноеЧисло + " не простое");
КонецЕсли;



Для НатуральноеЧисло = 2 По 1000 Цикл
	ЧислоЯвляетсяПростым = Истина;
	
	Для Число = 2 По НатуральноеЧисло - 1 Цикл
		Если НатуральноеЧисло % Число = 0 Тогда
			ЧислоЯвляетсяПростым = Ложь;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	
	Если ЧислоЯвляетсяПростым = Истина Тогда
		Сообщить(НатуральноеЧисло);
	КонецЕсли;
КонецЦикла;