- Cách 1: Sử dụng công thức: 1^3 + 2^3 + .. + a^3 = (1 + 2 + .. + a)^2

uses crt;
var a, b, t: longint;
   
function calc(a: longint):longint;
begin
    exit(sqr(a * (a + 1) div 2));
end;
    
begin
    clrscr;
    readln(t);
    while t > 0 do begin
        readln(a, b);
        writeln(calc(b) - calc(a - 1));
        dec(t);
    end;
readln;
end.

  a^3 + (a + 1)^3 + ... + b^3
= (1^3 + 2^3 + ... + b ^ 3) - (1^3 + 2^3 + ... + (a - 1)^3)
= ( sqr(b * (b + 1) div 2) ) - sqr( a * (a - 1) div 2 )

- Cách 2: Sử dụng vòng lặp (Do giới hạn nhỏ)

uses crt;
var a, b, t, s, i: longint;
    
begin
    clrscr;
    readln(t);
    while t > 0 do begin
        readln(a, b); s:=0;
        for i:=a to b do s:=s + i * i * i;
        writeln(s);
        dec(t);
    end;
readln;
end.