Помогите написать блок схему (Составить программу для вычисления суммы)

summa=0
Cycle for k from 3 to 17
summa+=funk(k,x)
end cycle
Понимаешь, бс рисуется (овальчики, ромбики, прямоугольнички), а не пишется

program p2;
var i,k:integer; p,s,x:real;
begin
write('x: '); readln(x); s:=0;
for i:=1 to 8 do
begin
k:=2*i+1; p:=ln(abs(k+x)); s:=s+2*sqr(k+x)/(p*p*p);
end;
writeln(s);
end.