Информатика 8 класс, программирование

Если произведение трёх чисел равно нулю, нулевые элементы заменить суммой этих трёх чисел

beginvar a:=ReadArrInteger('Введите 3 чисел:',3);var i:=a.Aggregate(1,(i,j)->i*j);var s:=a.Aggregate(0,(i,j)->i+j);if i=0 then a.Replace(0,s);a.Println;end.