program qq;
var a, a1, b, c, d:integer;
i:integer;
begin
  a1:=22;
  b:=1;
  for i:=1 to 6 do
    begin
    a:= a1 - b * 4;
    b:= b+1;
  end;
  writeln(a);
end.