program ideone;
var n,m,i:integer;
begin
m:=0;
for i:=1 to 10 do
begin
n:=i+2;
if n>10
then m:=n+m*2
else m:=m+1;
end;
writeLn(m)
end.
cHJvZ3JhbSBpZGVvbmU7CnZhciBuLG0saTppbnRlZ2VyOwpiZWdpbgoJbTo9MDsKCWZvciBpOj0xIHRvIDEwIGRvCgliZWdpbgogICAgCW46PWkrMjsKICAgIAlpZiBuPjEwCiAgICAJCXRoZW4gbTo9bittKjIKICAgIAkJZWxzZSBtOj1tKzE7CgllbmQ7Cgl3cml0ZUxuKG0pCmVuZC4K