Циклы (подготовка к олимпиаде)

Задача. Дано число х. Найти все его делители.
Решение.
1) Вспоминаем определие делителя числа.
2) Определяем тип переменных.
3) Вспоминаем свойство натурального ряда чисел.
Итак, нам нкжно найти такие натуральные числа р на которые число х будет делиться без остатка.
program deliteli;
var x,p:integer;
begin
readln(x);
for p:=1 to x do
if x mod p=0 then writeln(p,' ');
end.
Попробуйте решить задачу, в которой необходимо проверить, является ли введенное пользователем число простым.