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

немного не в столбик

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.