Вычислить значение выражения

uses crt;
 
const
  N = 10;
 
var
  r,sum:real;
  i:integer;
  
BEGIN
  r:=1.1;
  sum:=r;
  write(sum);
  for i:=1 to (N)div(2)-1 do
    begin
      r:=r+0.1;
      write('-',r);
      sum:=sum-r;
      r:=r+0.1;
      write('+',r);
      sum:=sum+r;
    end;
  writeln;
  write('Result: ',sum);
END.

var
  n,z,i: integer;
  sum,sl: real;
begin
  repeat
    write('Введите N (N>0): ');
    readln(n);
  until n>0;
  sl:=1.1; z:=1; sum:=0;
  for i:=1 to n do
    begin
      sum:=sum+sl*z;
      z:=-z;
      sl:=sl+0.1;
    end;
  writeln('Сумма равна ',sum);
  writeln;
end.

program for13;
 
var
a,sum:real;
n,i,b:integer;
 
begin
  writeln('Vvedite chislo');
  read(n);
  a:=1.1;
  sum:=0;
  b:=-1;
  
  for i:=1 to (n*10)-10 do
    begin
      b:=-b;
      a:=a+0.1;
      writeln(' a:',a,' sum:');
      sum:=sum+a*b;
      writeln(sum);
     end;
   
  writeln;
  writeln('resultat:',sum);
   
   
   
 end.