Var a, n, k, t, s:integer;
Bedin
Readln(n)
S:=0;
For i:=1 to n do
If i mod 2 =0 then
Begin
For t:=1 to i do
K:=k*t;
S:=s+k;
End;
Writeln(s);
End.
Var a, n, k, t, s:integer;
Bedin
Readln(n)
S:=0;
For i:=1 to n do
If i mod 2 =0 then
Begin
For t:=1 to i do
K:=k*t;
S:=s+k;
End;
Writeln(s);
End.