Дано целое число N (> 0). Найти значение выражения 1,1 – 1,2+1,3 – … (N слагаемых, знаки…

var i, n: integer; sign, val, sum: real; begin sign: =1; val: =1,1; writeln ('Введите "n": '); readln (n); for i: =1 to n do begin sum: =sum+sign*val; sign: =sign*-1; val: =val+0,1; end; writeln ('Результат: ',sum); end.