Решить в паскале : дано двузначное число, определить : а) кратно ли 3 сумма его цифр; б) кратно ли сумма его цифр числу a

Var a, c: integer;

begin
read(c, a);
if ((c mod 10 + c div 10) mod 3 = 0)
    writeln('кратно 3');
else
    writeln('не кратно 3');
if ((c mod 10 + c div 10) mod a = 0)
    writeln('кратно ', a);
else
    writeln('не кратно ', a);
end.