Не могу сообразить как найти сумму n слагаемых

var n, y, i, x: integer;
begin
    randomize(); // датчик случайных чисел 
  
    n := 4; // сколько чисел выводить
    for i := 1 to n do
    begin
        y := 0;
        x := random (20) - 10; // из диапазона
        y :=y+x;
        writeln('x=', x,' y=', y ); // печатаем значение
    end;
end.