Определить, является ли число, введенное с клавиатуры простым В системе Паскаля

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

В системе Паскаля можно определить, является ли число простым, следующим образом:

program IsPrime;
var
num, i, cnt: integer;
begin
writeln('Enter a number: ');
readln(num);
cnt := 0;
for i := 1 to num do
begin
if num mod i = 0 then
cnt := cnt + 1;
end;
if cnt = 2 then
writeln(num, ' is a prime number.')
else
writeln(num, ' is not a prime number.');
end.

Эта программа считает количество делителей введенного числа и выводит результат: если число имеет ровно 2 делителя (1 и само число), то оно считается простым.