Вычислить значение суммы n членов следующего ряда: 16+k/3+k/6+k/9…. n> 0,k> 0 вводятся с клавиатуры блок схему и паскаль

Var  k, n, i: integer;
  sum: real;
begin
  readln(n, k);
  sum:=16;
  for i:=1 to n-1 do
    sum:=sum+k/i*3;
  writeln(sum);
end.