Цитата
Зачем я это написал?
Вот именно, непонятно... У автора вроде о подпрограммах - ни слова, хотя о циклах было (причем, заметь, было о циклах While/Repeat, ты же пользуешься For-ом...).
Это первое... Второе - извини меня, но с точки зрения usability программа никакая - ты же везде используешь
not Check, так зачем, спрашивается, ты сделал функцию проверки
составного числа, и используешь ее для проверки, является ли число простым? Процессор слишком мощный? Или ты думаешь, что раз пишешь пример "для начинающих", то "и так сойдет"? Не сойдет... Если ты привык писать программы неверно, то пиши... А вот учить других (тем более, начинающих) - не надо... И не начинай мне сейчас приводить ассемблерные листинги, "доказывающие" что-то... Неинтересно оно мне. Когда меня будет интересовать экономия 10 процессорных тактов не программу из 50000 строк кода - я буду писать на ассемблере. Здесь - раздел "Паскаль". И программа, которая написана (по твоим же словам) для начинающего, должна быть ему интуитивно понятна, вот мне непонятно почему нельзя было воспользоваться
IsPrime, и обойтись без NOT.
Если можно более чем в одном месте программы избавиться от not-а, то это надо сделать (перечитай свою же цитату).