1. Ввести целое число и найти сумму его цифр.
Пример
Введите целое число 1234
Сумма цифр числа 1234 равна 10
2. Вычислить в Паскале степень числа, используя цикл while

var a, Summ:integer;begin write('Введите число '); readln(a); Summ := 0; while a > 0 do begin Summ := Summ + a mod 10; a := a div 10; end; writeln('Сумма цифр равна ', Summ);end.