Вычислить сумму номеров всех элементов массива, больших чем А, и сумму номеров элементов массива, меньших чем -А

uses crt;
const n=30;
var x:array[1..n]of real;
    a:real;
    i,sm,k:integer;
begin
clrscr;
randomize;
writeln('Massiv:');
for i:=1 to n do
  begin
   x[i]:=30*random-15;
   write(x[i]:5:1);
  end;
writeln;
write('A=');readln(a);
sm:=0;k:=0;
for i:=1 to n do
if (x[i]<-a)or(x[i]>a)then
  begin
   k:=1;
   sm:=sm+i;
  end;
if k=0 then write('Takih chisel net summa=0')
else write('Summa=',sm);
readln
end.

uses crt; 
var x,y:real; 
begin 
clrscr; 
write('x=');
readln(x); 
write('y=');
readln(y); 
if(x>=-1.5)and(x <= -0.5)and(y >= 1.5)and(y <= 2.5) then 
  write('Да!') 
else 
  write('Нет!'); 
readln 
end.

uses crt;
var a:array[1..100] of real;
    b:real;
    n,i,k:integer;
begin
clrscr;
randomize;
write('Razmer masiva n=');readln(n);
writeln('Massiv:');
for i:=1 to n do
 begin
  a[i]:=30*random-15;
  write(a[i]:5:1);
 end;
writeln;
write('B=');readln(b);
k:=0;
for i:=1 to n-2 do
if a[i]+a[i+2] < b then
  begin
   k:=1;
   writeln(a[i]:5:1,'  ',a[i+2]:5:1);
  end;
if k=0 then write('Takoj pary net!');
readln
end.

uses crt;
var x,y,p,t:real;
    i:integer;
begin
clrscr;
write('x=');readln(x);{вводи числа по модулю меньше 1, иначе числа очень большие, прога вылетит}
write('y=');readln(y);
p:=1;
for i:=2 to 32 do
 begin
   t:=x*(i+1)/i+y*i;
   p:=p*t;
 end;
write('P=',p:0:4);
readln
end.