Write the program in pascal “find the sum of digits of an arbitrarily significant integer”. Use string

program zz1;

var s: string; // set a variable of string type

i, k: integer; // set variables of integer type

begin

write (‘enter any significant integer’);

read (s); // enter the number from the keyboard as a string

for i: = 1 to length (s) do // organize a loop in which we iterate over all characters from the first to the last

k: = k + ord (s [i]) – 48; // take a character from a string, translate it into a numeric code, subtract 48 so that the character matches the number of the character

write (‘the sum of digits of an arbitrarily significant integer =’, k);

end.