Пожалуйста посчитайте найти ошибку, пожалуйстаЗадание:Даны два БоЛьШуЩиХ ЧиСЛа. Проверьте, делится ли их произведение на девять.Формат файла входных данных:В двух строках входного файла даны два целых неотрицательных числа, по одному в строке. Запись каждого из них состоит из не более чем 106 цифр.Формат файла выходных данных:В единственной строке выходного файла выведите "YES", если произведение данных чисел делится на девять, и "NO" в противном случае (без кавычек).МОЕ РЕШЕНИЕ:varn, m: string;c, i, k, code, sum, sum1, k1, code1: longint;beginsum := 0;readln(n);for i := 1 to length(n) do beginsum := sum + ord(n[i]) - ord('0');end;sum1 := 0;readln(m);for i := 1 to length(m) do beginsum1 := sum1 + ord(m[i]) - ord('0');end;if (sum mod 9 = 0) or (sum1 mod 9 = 0) or ((sum mod 3 = 0) and (sum1 mod 3 = 0)) then write('YES') else write('NO');end.