Дано двузначное числи . Определит. А) кратна ли трем сумма его цифр Б) кратна ли сумма его цифр числу 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.


Помог ставь "Лучший ответ"