Ввести целое число и найдите сумму его цифр...желательно сделать это на

Var n,m,p,k,c,g,z,h:integer;

   a,s:real;

Begin

write('Введите число: ');

read(n);

m:=n;

k:=0;

while mlt;gt;0 do begin

p:=m mod 10;

k:=k+1;

m:=m div 10;

end;

z:=k;

a:=power(10,k);

g:=1;

s:=0;

for h:=1 to z do begin

c:=n div g mod 10;

g:=g*10;

s:=s+c;

a:=a/10;

end;

writeln('Сумма цифр равна: ',s);

end.