Составить программу вычисляющую делится ли натуральное число на 3 по признаку делимости - Turbo Pascal

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

Можно эту программу составить со строковым типом данных, пожалуйста) Составить программу вычисляющую делится ли натуральное число на 3 по признаку делимости.

Решение задачи: «Составить программу вычисляющую делится ли натуральное число на 3 по признаку делимости»

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

sum:=0;
for i:=1 to length(str) do
sum:=sum+ord(str[i])-ord('0');
if sum mod 3=0 then write('делится')
else write('не делится');

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

Создаётся переменная sum, которая инициализируется значением 0.
Задаётся цикл for, который будет выполняться от 1 до длины строки str.
Внутри цикла происходит суммирование всех цифр строки str с помощью оператора mod и вычитанием значения ord('0').
Если сумма делится на 3 без остатка, то выводится сообщение делится.
Если сумма не делится на 3 без остатка, то выводится сообщение не делится.