program ABC;
var
 X:array [1..27] of integer;
i,n,a,b:integer;
y:real;
Begin 
 y:=1;
 write ('введите количество элементов массива n =');
 readln (n);
    write ('введите число a =');
    readln (a); 
    write ('введите число b ='); 
     readln (b);          For i:= 1 to n do   
 Begin 
   X[i]:= -10+random(25);       
write (X[i]:4); 
 y:=y*(exp(a*(X[i]))-exp(b*(X[i])));
    end; 
 writeln; 
 write ('Y =',y);
End.