написать программу которая считает количество цифр в числе и их сумму. паскаль. число вводится с клавиатуры

Для натуральных чисел:var a,k,s:integer;beginwrite('a = ');readln(a);k:=0; s:=0;while a>0 do begin k:=k+1; s:=s+a mod 10; a:=a div 10; end;writeln('k = ',k,', s = ',s);end.Пример:a = 352186k = 6, s = 25