program feladat11;
uses crt;
var i,n,sum:integer;
begin
clrscr;
writeln('Adj meg egy számot.');
readln(n);
sum:=0;
for i:=1 to n do begin
sum=sum+i*2;
end;
writeln(sum);
readkey;
end.