Верно ли что доходы превышают расходы, но не более, чем на 15% как это сделать в worde?

1. По условию которое записано у вас(1/1*1+1/2*2+1/3*3+...+1/n*n, ) В этом случае программа будет бессмысленной

program raf105;

var n,i:integer;

sum:real;

begin

write('Введите n: ');

readln(n);

for i:=1 to n do

 sum += 1/i*i;

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

end.

2. По условию которое могло быть на самом деле(1/(1*1)+1/(2*2)+1/(3*3)+...+1/(n*n), )

program raf105;

var n,i:integer;

sum:real;

begin

write('Введите n: ');

readln(n);

for i:=1 to n do

 sum += 1/(i*i);

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

end.

Язык программирования PascalABC

const h = 15;

var arr: array [1..h] of integer;

i, sum, prod, min, max: integer;

begin

   writeln('Исходный массив: ');

   for i:=1 to h do

   begin

       arr[i]:=random(-100,100);

       write(arr[i], ' ');

   end;

   writeln();

   

   sum:=arr[1];

   prod:=arr[1];

   min:=arr[1];

   max:=arr[1];

   for i:=2 to h do

   begin

       sum += arr[i];

       prod *= arr[i];

       if arr[i] < min then

           min:=arr[i];

       if arr[i] > max then

           max:=arr[i];

   end;

   

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

   writeln('Произведение: ', prod);

   writeln('Max: ', max);

   writeln('Min: ', min);

end.