program TinhTong;
var
    n, i: integer;
    A, B, sum_A, sum_B: real;

function TinhTong_A(n: integer): integer;
var
    i: integer;
begin
    TinhTong_A := 0;
    for i := 1 to n do
        TinhTong_A := TinhTong_A + i * i;
end;

function TinhTong_B(n: integer): real;
var
    i: integer;
begin
    TinhTong_B := 0;
    for i := 1 to n do
        TinhTong_B := TinhTong_B + i / ((i + 1) * (i + 2));
end;

begin
    // Nhập số nguyên dương n từ bàn phím
    write('Nhap so nguyen duong n: ');
    readln(n);

    // Tính số chữ số của n
    i := 0;
    while n > 0 do
    begin
        n := n div 10;
        i := i + 1;
    end;
    writeln('So ', n, ' co ', i, ' chu so');

    // Tính tổng A
    sum_A := TinhTong_A(n);
    writeln('A = ', sum_A:0:0);

    // Tính tổng B
    sum_B := TinhTong_B(n);
    writeln('B = ', sum_B:0:4);
end.