program Bai3_Xu_Ki_Tu;
var
  S: string;
  i, k, sum, count: integer;
begin
  write('Nhap xau S: ');
  readln(S);
  k := length(S);
  sum := 0;
  count := 0;
  for i := 1 to k do
  begin
    if (S[i] >= '0') and (S[i] <= '9') then
    begin
      sum := sum + ord(S[i]) - ord('0');
      count := count + 1;
    end;
  end;
  writeln('So luong ki tu so co trong xau S: ', count);
  writeln('Tong cac so co trong xau S: ', sum);
end.
 

program XuKyTu;

var
  S: string;
  countDigits, sumDigits, i, num: integer;
  currentNum: string;

begin
  // Nhập xâu kí tự S
  writeln('Nhap xau S:');
  readln(S);

  // Khởi tạo số lượng kí tự số và tổng các số
  countDigits := 0;
  sumDigits := 0;
  currentNum := '';

  // Duyệt qua từng kí tự trong xâu S
  for i := 1 to Length(S) do
  begin
    // Nếu là kí tự số, cộng số lượng và tính tổng các số
    if (S[i] >= '0') and (S[i] <= '9') then
    begin
      Inc(countDigits);
      currentNum := currentNum + S[i]; // Tạo số hiện tại bằng cách ghép các kí tự số liên tiếp nhau
    end
    else
    begin
      // Nếu gặp kí tự không phải số và có số hiện tại, cộng vào tổng
      if currentNum <> '' then
      begin
        Val(currentNum, num); // Chuyển chuỗi thành số nguyên
        Inc(sumDigits, num);
        currentNum := ''; // Reset số hiện tại sau khi đã cộng vào tổng
      end;
    end;
  end;

  // Nếu kết thúc xâu vẫn còn số hiện tại, cộng vào tổng
  if currentNum <> '' then
  begin
    Val(currentNum, num); // Chuyển chuỗi thành số nguyên
    Inc(sumDigits, num);
  end;

  // In ra số lượng kí tự số và tổng các số
  writeln('S co ', countDigits, ' ki tu so');
  writeln('Tong cac so la: ', sumDigits);
end.