Составить программу на паскалеДано натуральное число…

Program Program1; vari,sum,n,code: integer; s: string; beginwrite ('Введите натуральноее число: '); readln (s); sum: =0; for i: =1 to Length (s) dobeginVal (s[i], n, code); sum: =sum+n; end; writeln ('Сумма цифр: ', sum) end.