Что не так с программой?

Поменяй тип переменной s на real, у тебя в данном случае может получится вещественное значение в s, а тип integer не может хранить вещественные числа. Также, насколько я понимаю нужно сумму найти, тогда ты не просто в цикле присваиваешь s какое-то значение, а именно прибавляешь к s выражение. s := s + выражение

var n, i, x : integer;

s : real;

p : longint;