Написать функцию проверки делимости числа на 3 - Pascal

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

Умные люди помогите решить задачу по процедурам, если не решу на завтра, с меня сдеруть заживо кожу-) Буду очень благодарен) задача - Для делимости числа на 3 требуется, чтобы сумма цифр числа делились на 3. Написать функцию проверки делимости числа n, вводимого с клавиатуры, на 3. ПОМОГИТЕ!(((

Решение задачи: «Написать функцию проверки делимости числа на 3»

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

uses crt;
function Del3(n:longint):boolean;
var s:byte;
begin
s:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;
if s mod 3=0 then Del3:=true
else Del3:=false;
end;
var k:longint;
begin
clrscr;
write('Введите k=');
readln(k);
if Del3(k) then write('число делится на 3')
else write('число не делится на 3');
readln
end.

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

В начале кода подключается библиотека crt, которая предоставляет функции для работы с числами.
Затем объявляется функция Del3, которая принимает целочисленный аргумент n и возвращает логическое значение true, если число делится на 3, и false в противном случае.
Внутри функции объявляется переменная s типа byte, которая будет использоваться для накопления остатка от деления числа на 10.
Затем в цикле while происходит следующее:
- s накапливает остаток от деления числа n на 10.
- Затем число n делится на 10.
- Цикл продолжается, пока n не станет равным нулю.
После выхода из цикла проверяется, равен ли остаток от деления s на 3 нулю. Если да, то функция Del3 возвращает true, иначе - false.
Далее объявляется переменная k типа longint, которая будет использоваться для ввода числа пользователем.
Выводится сообщение «Введите k=» для приглашения пользователя ввести значение k.
Число k считывается с клавиатуры и сохраняется в переменной k.
Затем вызывается функция Del3, передавая ей значение k в качестве аргумента.
Если функция Del3 возвращает true, то выводится сообщение «число делится на 3», иначе выводится сообщение «число не делится на 3».
В конце программы выводится символ новой строки с помощью функции readln.