На паскале пойдет?
var
i,n: integer;
x,s : real;
begin
s := 10;
readln(x,n);
for i := 2 to n do
s := s + (i*x)/3
writeln(s);
end.
