даю 100 поинтов за решение 2х задач на ПАСКАЛЕ! (10 класс)

//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.