[lxa85]

asus a9rp,

Код:

var 
  summator: integer; // Переменная накопления суммы
  A:integer;  // Число
  k:integer; // Коэфициент умножения 10, 100, 1000 ...
begin
  summator:=0;
  readln(A);
  A:=k*A;
  while A<>0 do
    begin
    summator:=summator+A;
    readln(A);
    A:=k*A;
    end;
  writeln(summator);
end.

Или я не правильно понял вопрос?