var f, n: integer;
begin
f := 4;
f := f*3;
for n := 1 to 4 do
f := f + n;
writeln\(f\);
end.