Сумма всех цифр в числе вводимых пользователем, программа без while . паскаль , пример : число 127 значит сумма 10

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write('сумма: ',ReadInteger('Введите число: ').ToString().Select(x->x.ToDigit()).Sum());
end.

//Pascal
var x, Sum: longint;
begin
  write('Число = ');
  readln(x);
  while (x<>0) do
  begin
    Sum := Sum + (x mod 10);
    x := x div 10;
  end;
 writeln('Сумма цифр = ', Sum);
end.