Вычислить значение суммы 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.