Дано целое число N. Определите, кратна ли числу К сумма цифр в числе.

var n,s,k:integer; 
begin
write('n='); readln(n);
write('k='); readln(k);
s:=0;
while n<>0 do begin
 s:=s+n mod 10;
 n:=n div 10;
 end;
writeln('sum = ',s);
if s mod k =0 
 then writeln('Сумма цифр числа кратна ',k)
 else writeln('Сумма цифр числа не кратна ',k);
end.

Пример:
n=123
k=2
sum = 6
Сумма цифр числа кратна 2