uses crt;
var a,n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
a:=0; t:=0;
for i:=1 to n do
begin
a:=a+2;
t:=t+a;
end;
writeln(t);
readln;
end.
uses crt;
var a,n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
a:=0; t:=0;
for i:=1 to n do
begin
a:=a+2;
t:=t+a;
end;
writeln(t);
readln;
end.