Решить в паскале :
дано двузначное число,
определить :
а) кратно ли 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.