Отыскать произведение чисел от 8 до 15. 2. Найти сумму n+(n+1)^2+(n+2)^2

program qq;

var

Mass: array[1..100] of integer;

i: integer;

n: integer;

sum: integer;

begin  

Writeln(Введите число частей массива не более 100);

readln (n);

for i:=1 to n do begin // наполнение  

Writeln(Введите ,I, элемент массива);

readln(Mass[i]);

end;

sum := 0; // подсчет суммы

for i:=1 to N do  

begin

Writeln(Исходный массив);

write (Mass[i]:4);

if Mass[i] gt; 0 then

sum := sum + Mass[i];

end;

writeln;

writeln(Сумма положительных элементов массива= sum:5);

end.