Простое число - это натуральное число больше единицы, которое делиться только на единицу и само на себя.
Из определения простого числа следует и алгоритм: Будем считать сколько делителей у заданного числа в диапазоне от единицы до самого себя и если таких делителей два, то исходное число простое:
count := 0;
for d := 1 to n do
if n mod d = 0
then inc(count);
if count = 2
then <Число n простое>
else <Число n не простое>
Ка видим все просто!
PS: Исходное число заведомо должно быть больше единицы, если это не так, то прежде чем запускать выше описанный алгоритм, следует поставить условие и если исходное число меньше или равно единице, то можно смело утверждать, что оно не простое без всяких дальнейших проверок!