Вопрос Помогите написать программу которая будет выводить сумму цифр в числе на паскале через процедуру

[Koldun_86]

Помогите написать программу которая будет выводить сумму цифр в числе на паскале через процедуру (или функцию)
например дано число 999, овтет: 27.
Нужна именно процедура!

 

[vxcvxcvxcv]

procedure p(k:longint; var s:integer); begin s:=0; repeat s:=s+k mod 10; k:=k div 10 until k=0 end; var i:longint; m:integer; begin readln(i); p(i,m); writeln(m); readln end.