Дано двузначное числи . Определит. А) кратна ли трем сумма его цифр Б) кратна ли сумма его цифр числу a.

А) var n,m,k:integer; begin readln(n); m:=n div 10; k:=n mod 10; if (m+k) mod 3 = 0 then writeln('Сумма чисел числа ',n,' кратна 3') else writeln('Сумма чисел числа ',n,' не кратна 3'); end. Б) var n,m,k,a:integer; begin readln(n,a); m:=n div 10; k:=n mod 10; if (m+k) mod a = 0 then writeln('Сумма чисел числа ',n,' кратна ',a) else writeln('Сумма чисел числа ',n,' не кратна ',a); end. Помог ставь "Лучший ответ"