Var a,b: integer;
Begin
a:=2;
b:=4;
while b>=0 do
begin
b:=a*b+1;
a:=a-2;
end;
b:=b+a;
write (b);
End.
