Viết chương trình tính tổng bình phương của n số lẻ dương đầu tiên { VD n=3 thi tinh {(1*1)+(3*3)+(5*5)}

program tinh_tong;

uses crt;

var n,i,d:integer;

      t:longint;

begin

     clrscr;

     write(‘Nhap n: ‘);   readln(n);

     t:=0;  d:=1;  i:=1;

     while d<=n do

          begin

               t:=t+i*i;

               i:=i+2;

               d:=d+1;

          end;

     write(‘Tong cua ‘,n,’ so le duong dau tien la: ‘,t);

     readln;

end.