Придумайте задачу и составьте для нее программу в паскале

Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.   Program summa; Var a: array[1..100] of real;       i, n: integer;         s: real; Begin   Write (‘n=’); Readln (n);   s:=0;   For i:=1 to n do      begin        write (‘введитечисло’); readln (a[i]);        s:=s+a[i];      end;      writeln(‘сумма  элементов равна  ‘,s); End.