// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,f:integer;
  Write('Введите a,b: '); Read(a,b);
  for var x:=a to b do begin
    if x<=-3 then f:=5*x*x+x
    else
      if x<1 then f:=x*x-2
      else f:=2*x-1;
    Writeln(x:5,f:10)
    end
end.

Пример
Введите a,b: -6 10
   -6       174
   -5       120
   -4        76
   -3        42
   -2         2
   -1        -1
    0        -2
    1         1
    2         3
    3         5
    4         7
    5         9
    6        11
    7        13
    8        15
    9        17
   10        19

begin
  var n:=ReadInteger('N=');
  Writeln('S=',Range(2,n).Aggregate(0.0,(i,j)->i+(1-3*j)/(2*(j-1))))
end.

Пример
N= 10
S=-16.3289682539683

//first

var
a, b, i: longint;

function f (x1: longint):longint;
var i: longint;
begin 
  if x1<=-3 then f:=5*sqr(x1)+x1   
      else     
          if x1 in [-3..0] then f:=sqr(x1)-2     
                 else      f:=2*x1-1;
end; 

begin
writeln ('Введите a, b: ');
readln (a, b); 
for i:=a to b do writeln ('f(', i:3, ') = ', f(i));
end.

//second
varn, j: longint;
sum: real;

function f(I: longint):real;
begin
f:=(1-3*i)/(2*(i-1));
end;

begin
write ('Введите n: ');
readln (n); 
for j:=2 to n do sum:=sum+f(j);
write ('Сумма: ', sum);
end.