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.