Функция, определяющая, является ли целое действительное число кратным 7 - Pascal

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

PASCAL Разработать функцию, определяющую является ли целое действительное число-кратным 7. Используя функцию, определить количество кратных чисел в диапазоне от 100 до 200.

Решение задачи: «Функция, определяющая, является ли целое действительное число кратным 7»

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

function m7(n:integer):boolean;
begin
  m7:=n mod 7=0;
end;
var
  c,i:integer;
begin
  for i:=100 to 200 do c:=c+ord(m7(i));
  writeln(c);
end.

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

В функции m7 определяется переменная n, которая представляет собой целое число.
В функции m7 используется оператор % для определения остатка от деления числа n на 7. Если остаток равен 0, то число n кратно 7, иначе нет.
В основной программе объявлены две переменные c и i, которые будут использоваться для подсчета суммы кратных чисел.
С помощью цикла for перебираются числа от 100 до 200.
На каждой итерации цикла значение переменной c увеличивается на порядковый номер числа, которое является кратным 7 (это вычисляется с помощью функции ord(m7(i))).
В конце основной программы выводится значение переменной c, которое представляет собой сумму всех кратных чисел от 100 до 200.