написать программу на паскале.

если я правильно понял что bx нужно возвести в степень 2-a (и тоже самое с e) написано на паскале abc

program asd;
uses crt;
var
x,b,a,t,g,e:integer;
begin
writeln('Введите x');
readln(x);
writeln('Введите b');
readln(b);
writeln('Введите a');
readln(a);
writeln('Введите t');
readln(t);
writeln('Введите g');
readln(g);
writeln('Введите e');
readln(e);

writeln('Данные первого примера: a=', a, ' b=', b ,' x=',x ,' t=', t , ' g=', g);
writeln('Результат 1 примера: ', sqr(x)*x * sqr(t*g) * (sqr(x+b) +a/sqrt(x+b)));

writeln('Данные второго примера: a=', a, ' b=', b ,' x=',x ,' e=', e);
writeln('Результат 2 примера: ', ( Power(b*x,2-a) )/ (Power(e,a*x-1) ) );

end.

1)

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(80)-20;

write (a[i],' ');

s:=s+a[i];

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

2)

var
a:array [1..15] of integer;
i:integer;

p:longint;
begin
randomize;

p:=1;
for i:=1 to 15 do begin
a[i]:=random(26)+5;
write (a[i],' ');
p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.

3)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(90)-50;
write (a[i],' ');

if a[i]<0 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end. 

4)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(37)+1;
write (a[i],' ');
if odd(a[i])=true then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end. 

5)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(39)+2;
write (a[i],' ');
if a[i]<20 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.  

6)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(60)+5;
write (a[i],' ');
if a[i] mod 7 = 0 then k:=k+1;
end;
writeln;
writeln ('Kol-vo = ',k);
readln;
end.  

7)

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(8)+3;

write (a[i],' ');

if a[i]=8 then s:=s+a[i]

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

8)

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(69)+5;

write (a[i],' ');

if a[i] mod 11 = 0 then s:=s+a[i];

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

9)

var

a:array [1..15] of integer;

s,i:integer;

begin

randomize;

for i:=1 to 15 do begin

a[i]:=random(69)+5;

write (a[i],' ');

if odd(a[i])=false then s:=s+a[i];

end;

writeln;

writeln ('Summa = ',s);

readln;

end.

10)

var
a:array [1..15] of integer;
i:integer;

p:longint;
begin
randomize;

p:=1;
for i:=1 to 15 do begin
a[i]:=random(69)+5;
write (a[i],' ');
if a[i] mod 3 = 0 then p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.

 14)

var
a:array [1..15] of integer;
i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(26)+5;
write (a[i],' ');
end;
writeln;

writeln (''); 

for i:=1 to 15 do 

if odd(a[i])=false then write (a[i],' ');
readln;
end.

13)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(85)+21;
write (a[i],' ');
end;
writeln;

writeln('');

for i:=1 to 15 do

if a[i] mod 21 = 0 then begin

write (a[i],' ');

k:=k+1;

end;

if k=0 then writeln ('Elementov net');
readln;
end.

 12)

var
a:array [1..15] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(37)+1;
write (a[i],' ');
end;
writeln;

writeln('');

for i:=1 to 15 do

if a[i]>15 then write (a[i],' '); 

readln;
end.

11)

var
a:array [1..15] of integer;
i:integer;

p:longint;
begin
randomize;

p:=1;
for i:=1 to 15 do begin
a[i]:=random(15)+1;
write (a[i],' ');
if (a[i]>2) and (a[i]<5) then p:=p*a[i];

end;
writeln;
writeln ('Proizvedenie = ',p);
readln;
end.