Построить логическую схему логической функции f(a,b,c)=a*b+b*c​

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:

begin
  var n:=ReadInteger('n=');
  var (s,i):=(0.0,1);
  while i<=n do begin
    s+=1/Sqr(2*i+1);
    i+=1
    end;
  Writeln('S=',s)
end.

Пример
n= 10
S=0.210988884817533

Гораздо естественнее тут выглядит цикл со счетчиком:

begin
  var n:=ReadInteger('n=');
  var s:=0.0;
  for var i:=1 to n do
    s+=1/Sqr(2*i+1);
  Writeln('S=',s)
end.

А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:

begin
  Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.

//Microsoft (R) C/C++ Optimizing Compiler Version 19.00.23506 for x64
#include <iostream>
#include <bitset>
#include <sstream>

const size_t hex(const std::string& number)
{
    size_t u_num = 0U;
    std::istringstream ost(number);
    ost >> std::hex >> u_num;
    return u_num;
}

template <typename L, typename R>
const size_t& calculate(const L& l, const R& r)
{
    return std::bitset<16>(l).to_ulong() + std::bitset<16>(r).to_ulong();
}

int main()
{
    std::cout << calculate(hex("7c"), 5) << std::endl;
    std::cout << calculate("11", hex("1d")) << std::endl;
}