Напишите программу, которая выводит ** экран последний член последовательности 1, -3, -7,...

Question

Напишите программу, которая выводит на экран последний член последовательности 1, -3, -7, -11, -15... меньший заданного числа и его сумму с предыдущими членами последовательности

Answer 1

Program hhh54;
var n,x,s:longint;
begin
  s:=0;
  read (n);
  x:=1;
  while x > n do
    begin
      s:=s+x;
      x:=x-4;
    end;
  s:=s+x;
  write (x,' ',s);
end.