Viết chương trình để tính tổng các cặp tích số lẻ như sau:A=1.3+3.5+5.7+… với n là số tự nhiên được nhập vào bàn phím

Program BTH;
uses crt;
var n,i,s:longint;
begin
        clrscr;
        write(‘Nhap n: ‘); readln(n);
        s:=0;
        For i:=1 to n*2 do
        If i mod 2=1 then s:=s+i*(i+2);
        writeln(‘Tong day so tren la: ‘,s);
        readln;
end.