Даны целые числа а₁, , а₅₀. получить сумму тех чисел данной последовательности, которые удовлетворяют условию |ai| < i².на java

program raf105;

var k,a,p,b,m,let:real;

begin

write('Площадь участка (га.): ');

readln(k);

write('Средняя урожайность с гектара (ц.): ');

readln(a);

write('Увеличение участка за год (% от площади): ');

readln(p);

write('Рост урожайности за год (% от урожайности): ');

readln(b);

write('Желаемый урожай (ц.): ');

readln(m);

while a < m do

begin

 k+= (k/100*p);

 a+= (a/100*b);

 let+= 1;

end;

writeln;

writeln('Желаемая урожайность (',m,' ц.) будет достигнута через ',let,' лет');

writeln('При этом, площадь участка будет составлять примерно ',round(k),' га.');

end.

Язык PascalABC

Var a:array of integer;
n,i,min,imin,max,imax:integer;
begin
write('n = ');
readln(n);
SetLength(a,n);
for i:=0 to n-1 do
 begin
  a[i]:=random(51);
  write(a[i]:4);
  end;
writeln;
min:=a[0]; imin:=0;
max:=a[0]; imax:=0;
for i:=1 to n-1 do
 begin
  if a[i]<min then 
   begin 
    min:=a[i]; imin:=i;
    end;
  if a[i]>max then 
   begin
    max:=a[i]; imax:=i;
    end
   end;
writeln('min = ',min,' max = ',max);
a[imin]:=max; a[imax]:=min;
for i:=0 to n-1 do  write(a[i]:4);
writeln;
end.

Пример:
n = 10
  33  17  33  49   3   2  14  25  35  47
min = 2 max = 49
  33  17  33   2   3  49  14  25  35  47