Вывести на экран сумму N случайных чисел.

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