СДЕЛАЙТЕ ЗАДАНИЯ НА ЛИСТЕ, УМОЛЯЮ

var i, sum : integer;

var D: array [0..10] of integer;

begin

 for i:= 0 to 10 do

   D[i] := i;

 sum := 0; 

 for i := 0 to 10 do

   sum := sum + D[i];

end.

Объяснение:

Просто перепиши на листок код сверху