K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

var i,n,s:longint;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

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

writeln(s);

readln;

end.