напишите функцию, которая определяет сумму цифр переданного ей числа, в системе паскаль

program axaxa;var  n,a,s:integer;beginreadln(n);s:=0;while n>0 dobegina:=n mod 10;s:=s+a;n:= n div 10;end;writeln(s);end.