program TinhTong;
var
    n, temp, i: integer;
    A, B, sumA, sumB: real;
begin
    write('Nhập số nguyên dương n: ');
    readln(n);

    temp := n; // Lưu giá trị ban đầu của n để tính số chữ số

    // Tính số chữ số của n
    i := 0;
    while temp > 0 do
    begin
        temp := temp div 10;
        i := i + 1;
    end;

    writeln('Số ', n, ' có ', i, ' chữ số');

    // Tính tổng A
    sumA := 0;
    for i := 1 to n do
    begin
        sumA := sumA + i*i;
    end;
    writeln('A = ', sumA:0:0);

    // Tính tổng B
    sumB := 0;
    for i := 1 to n do
    begin
        sumB := sumB + i / ((i + 1) * (i + 2));
    end;
    writeln('B = ', sumB:0:4);

    readln;
end.