1. Задан массив D. Определить последующие суммы: D[1] + D[2] +

program zz1;
const n = 6; // задаем количество частей в массиве
var i, k, s:integer; // задаем переменные целого типа
d:array [1..n] of integer;
procedure summ(a,b,c:integer;var f:integer); // записываем подпрограмму
begin
f:=a+b+c;
end;
begin
for i:=1 to n do // получаем n чисел случайных и записываем их в массив
d[i]:=random(51);
for i:=1 to n do // выводим приобретенный массив на экран
write(d[i], );
writeln; // перебегаем на новейшую строку для вывода ответа
summ(d[1],d[2],d[3],s); // вызываем подпрограмму
writeln( 1-ая сумма = , s); // выводим ответ
summ(d[3],d[4],d[5],s);
writeln( 2-ая сумма = , s);
summ(d[4],d[5],d[6],s);
writeln( третья сумма = , s);
end.