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

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

program PrimeNumber;

var
num, i: integer;
isPrime: boolean;

begin
isPrime := true;

write('Enter a natural number: ');
readln(num);

if num <= 1 then
isPrime := false
else
begin
for i := 2 to num - 1 do
begin
if num mod i = 0 then
begin
isPrime := false;
break;
end;
end;
end;

if isPrime then
writeln(num, ' is a prime number.')
else
writeln(num, ' is not a prime number.');
end.