Даны три действительных числа. выбрать из них те, которые принадлежат интервалу (1, 3

Var a, b, c: real; begin       readln(a, b, c);       if ((a > 1) and (a < 3)) then writeln(a);       if ((b > 1) and (b < 3)) then writeln(b);       if ((c > 1) and (c < 3)) then writeln(c); end.

#include < utility>

#include < vector>

#include < iostream>

#include < algorithm>

int main()

{

    typedef std: : pair< std: : string, size_t> p_sui;

    size_t n;

    std: : cin > > n;

    std: : vector< p_sui> vec(n);

    for(size_t i = 0; i < n; i++)

    {

        std: : cin > > vec[i].first > > vec[i].second;

    }

    std: : cout < < "фамилия: " < < std: : max_element(vec. vec. [](p_sui var1, p_sui var2)

    {

        return var1.second < var2.second;

    })-> first < < std: : endl;

}

program fibonachinums;

function fibn(n: integer): biginteger;

begin

  var (f1, f2) : = (biginteger(1), biginteger(1));

  for var i : = 3 to n do

    (f1, f2) : = (f2, f1 + f2);

  result : = f2;

end;

function fibsumn(n: integer): biginteger;

begin

  var (f1, f2) : = (biginteger(1), biginteger(1));

  var sum: biginteger;

 

  if n = 0 then sum : = 0

  else sum : = 1;

 

  for var i : = 2 to n do

  begin

    (f1, f2) : = (f2, f1 + f2);

    sum += f1;

  end;

 

  result : = sum

end;

begin

  println('десятое число фибоначчи: ',fibn(10));

 

  var n : = 100;

  writeln($'{n}-е число фибоначчи: ',fibn(n));

 

  println($'сумма первых {n} чисел фибоначчи: ',fibsumn(n))

 

end.