дано трехзначное число напишите программу определяющую кратна ли шести сумма его цифр, на любом языке можно.Помогите пожалуйста

На языке Pascal, если нужно на другом языке напиши:

program checkMultipleOfSix;

var

num, digitSum: integer;

begin

write('Введите трехзначное число: ');

readln(num);

digitSum := (num div 100) + ((num div 10) mod 10) + (num mod 10);

if (digitSum mod 6 = 0) then

writeln('Сумма цифр кратна шести.')

else

writeln('Сумма цифр не кратна шести.');

readln;

end.