Профильная информатика:
подготовка к ЕГЭ и олимпиадам

var
  x, a, b : integer;
begin
  read(x);
  a := 0;
  b := 0;
  while x > 0 do begin
    a := a + 1;
    if x mod 10 mod a = 1 then
      b := b + a;
    x := x div 10 
  end;
  writeln(a, ' ', b)
end.

#include <iostream>

int main() {
  int x, a = 0, b = 0;
  std::cin >> x;
  while (x > 0) {
    a++;
    if (x % 10 % a == 1)
      b += a;
    x /= 10;
  }
  std::cout << a << " " << b;
}

DIM X, A, B AS INTEGER
INPUT X
A = 0 : B = 0
WHILE X > 0
  A =  A + 1
  IF B MOD 10 MOD A = 1 THEN
    B = B + A
  END IF
  X = X \ 10
WEND
PRINT A, " ", B

x = int(input())
a = b = 0
while x > 0 :
  a += 1
  if x % 10 % a == 1 :
    b += a
  x //= 10
print(a, b)