Напишите программу в паскале
найти сумму и произведение чисел -4 -3 -2 -1 0 1 2

Программа написана ниже:

Объяснение:

program H;

var sum, proz : integer;

begin

 sum := (-4) + (-3)+(-2)+(-1)+0+1+2;

 proz := (-4) * (-3)*(-2)*(-1)*0*1*2;

 writeln ('Сумма =', sum);

 writeln ('Произведение =', proz);

end.