Решить задачу, используя любой цикл (с предусловием, либо постусловием).S=10+(2*x)/3+(3*x)/3+(4*x)/3+⋯+(n*x)/3

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.