По информатике. найти сумму цифр данного целого числа. программа. паскаль

Var a,s,k:integer;beginwrite('введите число: ');readln(a);while a<>0 do begink:=a mod 10;s:=s+k;a:=a div 10;end;writeln('сумма цифр  равна ',s);end.