Написать программу в паскаль "найти сумму цифр сколь угодно значного целого числа". Использовать string

program zz1;

var s:string; / / задаем переменную строкового типа

i, k:integer; / / задаем переменные целого типа

begin

write (' введите сколь угодно значное целое число ');

read (s); / / вводим с клавиатуры число как строку

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы от первого до последнего

k:=k + ord (s[i]) - 48; / / берем символ из строки, переводим его в числовой код, вычитаем 48, чтобы символ стал соответствовать числу символа

write (' сумма цифр сколь угодно значного целого числа = ', k);

end.