Из предложенных ниже операторов составить универсальный алгоритм "Нахождения суммы цифр числа"

• var x,k:integer;
• begin
  writeln\('ввести число'\);
• readln\(x\);
• k:=0;
• while x<>0 do
• begin
• k:=k+x mod 10;
• x:=x div 10;
• end;
  writeln\('сумма цифр=',k\);
  end.