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

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.