Написать программу, которая проверяет , является ли целое число , введенное пользователем , простым. Программа Паскаль Цикл с пост условием

Предыдущий
вопрос Следующий
вопрос

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

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