Дана целочисленная прямоугольная матрица a.вычислить сумму и произведения

Const   n=15; var   a: array[1..n] of integer;   i: integer; begin   randomize;   writeln('исходный массив');   for i: =1 to n do begin       a[i]: =random(35)+1;       write(a[i],' ')       end;   writeln;   write('элементы, оканчивающиеся нулем: ');   for i: =1 to n do       if a[i] mod 10=0 then write(a[i],' ') end. пример исходный массив 8 28 35 25 35 1 20 14 30 4 2 15 20 2 13 элементы, оканчивающиеся нулем: 20 30 20

Введем обозначение. все, относящееся к прямоугольникам первого вида будет иметь индекс 1, ворого вида - индекс 2. пусть имеется n₁ и n₂ прямоугольников. по условию n₁+n₂ = w₁ и n₁=n₂, откуда n₁=w₁ и n₂=w₁ площади: s₁=w₁×h₁, s₂=w₂×h₂ общая площадь s = n₁×w₁×h₁ + n₁×w₂×h₂ = w₁×(w₁×h₁ + w₂×h₂) // pascalabc.net 3.2, сборка 1345 от 24.11.2016 // внимание! если программа не работает, обновите её версию! begin   var h1,w1,h2,w2: real;   read(h1,w1,h2,w2);   writeln(w1*(w1*h1+w2*h2)) end. пример 1 2 3 4 28