Дано натуральное число N. Напишите функцию (Pascal), вычисляющую сумму цифр числа N....

Question

Дано натуральное число N. Напишите функцию (Pascal), вычисляющую сумму цифр числа N.

Входные данные
Задано единственное число N

Выходные данные
Необходимо вывести сумму цифр числа N.

Примеры
входные данные
12
выходные данные
3
ПРОГРАММА БЫЛА, НО ВВОДИЛ 12 И ВЫВОДИЛ ВМЕСТО 3, 0

Answer 1

Program pro;
var n,a,sym:integer;
begin
readln(n);
while n>0 do 
begin 
a:=n mod 10; 
 sym:=sym+a; 
n:=n div 10;
  end;
writeln(sym)
end.