Разработать подпрограмму, которая в качестве аргумента получает целое число и проверяет, является ли оно простым. Используя подпрограмму вывести на экран все простые числа из промежутка целых чисел, определенного пользователем. Pascal ABC

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

program IsPrime;

function IsPrimeNumber(num: integer): boolean;
var
i: integer;
begin
IsPrimeNumber := true;
if num < 2 then
IsPrimeNumber := false
else
for i := 2 to num div 2 do
if num mod i = 0 then
begin
IsPrimeNumber := false;
break;
end;
end;

var
startNum, endNum, i: integer;
begin
writeln('Enter the starting number: ');
readln(startNum);
writeln('Enter the ending number: ');
readln(endNum);

writeln('Prime numbers in the range from ', startNum, ' to ', endNum, ':');
for i := startNum to endNum do
begin
if IsPrimeNumber(i) then
writeln(i);
end;
end.