program CheckPrimeNumber;
var
num, i: integer;
isPrime: boolean;
begin
write('Введите целое число: ');
readln(num);
if num <= 1 then
isPrime := false
else
begin
isPrime := true;
i := 2;
repeat
if num mod i = 0 then
isPrime := false;
i := i + 1;
until (i * i > num) or not isPrime;
end;
if isPrime then
writeln(num, ' - простое число')
else
writeln(num, ' - не является простым числом');
end.

Программа сначала запрашивает у пользователя целое число, затем проверяет, является ли оно простым. Если число меньше или равно 1, оно не считается простым. Далее программа проверяет все числа от 2 до квадратного корня заданного числа на делимость на заданное число. Если число делится без остатка на какое-либо число в этом диапазоне, оно не является простым. В противном случае число считается простым.