Pascal Ввести целое число и отыскать сумму его цифрНаписать цикл со

var n,m,i,k,o:integer;

s:string;

begin

readln(n); // программка спрашивает, какое число будем анализировать и присваивает его переменной n

str(n,s);  // получаем строчку из числа

for i:=1 to length(s) do

begin

val(s[i],k,o);  // посимвольно переводим строку в знак

m:= k+ m;  //  и суммируем все в переменную m

end;

writeln(m);  // выводим сумму цифр

end.