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

var a, c: integer;beginread(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.