Bài 3

program hocnhom;

var
  i, q : longint;
  n : int64;

procedure solve;
  begin
    read(n);
    { Su dung cong thuc tinh tong cac so binh phuong }
    n := n * (n + 1) * (2 * n + 1);
    n := n div 6;
    writeln(n);
  end;

begin
  read(q);
  for i:=1 to q do solve;
end.

Câu 2:

uses crt;
var t1,t2,t3,t4:longint; f:text;
procedure doc;
        begin
         assign(f,'DPNUOC.INP');
         reset(f);
         readln(f,t1,t2,t3,t4);
         close(f);
        end;
procedure ghi;
var KQ:longint;
        begin
         assign(f,'DPNUOC.OUT');
         rewrite(f);
         kq:=t1;
         repeat
          inc(kq);
         until(kq mod t1=0)and(kq mod t2=0)and(kq mod t3=0)and(kq mod t4=0);
         write(f,kq);
         close(f);
        end;
begin
 clrscr;
  doc;
  ghi;
 readln;
end.

Câu 3:

uses crt;
var n:longint; f:text; a:array[1..1000000]of longint;
procedure doc;
var i:longint;
        begin
         assign(f,'HOCNHOM.INP');
         reset(f);
         readln(f,n);
         for i:=1 to n do readln(f,a[i]);
         close(f);
        end;
procedure ghi;
var i,j:longint; s:int64;
        begin
         assign(f,'HOCNHOM.OUT');
         rewrite(f);
         for i:=1 to  n do
                begin
                 s:=0;
                 for j:=1 to a[i] do s:=s+sqr(j);
                 writeln(f,s);
                end;
         close(f);
        end;
begin
 clrscr;
  doc;
  ghi;
 readln;
end.