Program BTT;
Uses crt;
Var n,a: qword;
    i: longint;
Begin
        Clrscr;
        Write('Nhap N: '); Readln(n);
        a:=0;
        For i:=2 to n do
                a:=a+(i-1)*i*(i+1);
        Write('A = ',a);
        Readln
End.

Nhập số nguyên dương N, tính và in ra màn hình giá trị của biểu thức A như sau: 𝐴 = 1 × 2 × 3 + 2 × 3 × 4 + ⋯+ (𝑁 − 1) × 𝑁 × (𝑁 + 1) Yêu cầu thực hiện theo các bước sau: 1. Thông báo mời nhập “N = “ và nhập giá trị của N. 2. Tính và in ra màn hình số A tương ứng.

mình viết chương trình thooi nha  .-. thuật toán bạn tự làm nha

program hotboy;

uses crt;

n,i,s : real;

begin

clrscr;

write('nhap so nguyen duong n'); readln(n);

s:=0;

for i:=2 to n do

s:=s+(i-1)*i*(i+1);

writeln('A la',s:2:2);

readln

end.