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.
Объяснение:
Просто перепиши на листок код сверху
