Дано двузначное число. Определить: кратна ли трем сумма его цифр; кратна ли сумма его цифр числу А — Pascal(Паскаль)

var
a,k,chislo:integer;
begin
writeln('chislo=');
readln(chislo);
writeln('a=');
readln(a);
k:=chislo div 10 + chislo mod 10;
if k mod 3 = 0 then writeln('symma tsifr chisla kratna 3')
                else writeln('symma tsifr chisla ne kratna 3');
 
if k mod a = 0 then writeln('symma tsifr chisla kratna',a)
                else writeln('symma tsifr chisla ne kratna' , a);
 
end.