Дано целое число 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.