Вычислить сколько простых чисел в диапазоне от 1 до 100. Написать функцию для определения простого числа - Pascal

Формулировка задачи:

Вычислить сколько простых чисел в диапазоне от 1 до 100. Написать функцию для определения простого числа. Простое число делиться на себя и на 1

Решение задачи: «Вычислить сколько простых чисел в диапазоне от 1 до 100. Написать функцию для определения простого числа»

Листинг программы

function prost(x:integer):boolean;
var  y:integer;
     f:boolean;
begin
x:=abs(x);
if x<2 then f:=false{0,1 не простое}
else if x=2 then f:=true{2 простое}
else if x mod 2=0 then f:=false{четные больше 2 не простые}
else
 begin
  f:=true;
  y:=3;
  while(y*y<=x)and f do
  if x mod y=0 then f:=false
  else inc(y,2);
 end;
prost:=f
end;
var i,k:integer;
begin
k:=0;
for i:=1 to 100 do
if prost(i) then
 begin
  write(i,' ');
  k:=k+1;
 end;
writeln;
write('Количество простых чисел на интервале 1-100 = ',k)
end.

Объяснение кода листинга программы

Объявляется функция с именем prost, которая принимает один аргумент x типа целое число и возвращает значение типа boolean.
Объявляется переменная y типа целое число и переменная f типа boolean.
Начало определения функции prost:
- Присваивается значение модуля аргумента x переменной x.
- Проверяется условие: если x меньше 2, то переменной f присваивается значение false (0 и 1 не являются простыми числами).
- Иначе, если x равно 2, переменной f присваивается значение true (так как 2 является простым числом).
- Иначе, если x делится на 2 без остатка, переменной f присваивается значение false (так как четные числа больше 2 не являются простыми).
- Иначе:
  - Присваивается переменной f значение true.
  - Присваивается переменной y значение 3.
  - В цикле while проверяется условие: y * y меньше или равно x и f = true.
  - Если x делится на y без остатка, переменной f присваивается значение false.
  - Иначе прибавляется 2 к переменной y.
Конец определения функции prost.
Объявляются переменные i и k типа целое число.
Начало основной программы:
- Присваивается переменной k значение 0.
- В цикле от 1 до 100 выполняются проверки вызова функции prost для текущего значения i:
  - Если prost(i) возвращает true, то значение i выводится.
  - При этом переменной k увеличивается на 1.
- Отдельно выводится количество простых чисел на интервале 1-100.