Работа с excel время падения тела на землю зависит от его первоначальной высоты. если пренебречь сопротивлением воздуха, то время паденич тела на землю определяется по формуле: t=√2h/7, где t - время падения на землю, н - высота, с которой тело падает на землю, м, g - ускорение свободного падения, м/с^2 я вообще не шарю, как excel работать с дробями. , !

R:=Sqr(Sqr(Sqr(Sqr(Sqr(x))*x)*x))*x; // 45
r:=Sqr(Sqr(Sqr(Sqr(x))*x))*x; // 21
r:=Sqr(Sqr(Sqr(Sqr(x*x; // 17
r:=Sqr(Sqr(Sqr(x))*x)*x; // 11

Пример полной программы, реализующей такой алгоритм

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

function Dec2Bin(x:integer):string;
begin
  var t:=x;
  var r:string:='';
  while t>=2 do (r,t):=(t mod 2+r,t shr 1);
  Result:=t+r
end;

function Pow(x:real;n:integer):real;
// Быстрое возведение в степень "слева направо"
begin
  var m:=Dec2Bin(n);
  Result:=x;
  for var i:=2 to m.Length do begin
    Result:=Sqr(Result);
    if m[i]='1' then Result*=x
    end
end;

begin
  var x:=ReadReal('Укажите основание х:');
  var n:=ReadInteger('Укажите степень n:');
  Writeln(x,'^',n,' = ',Pow(x,n))
end.

Примеры
Укажите основание х: 0.918
Укажите степень n: 39
0.918^39 = 0.0355520433528712

Укажите основание х: -2
Укажите степень n: 15
-2^15 = -32768

Укажите основание х: 12.6
Укажите степень n: 23
12.6^23 = 2.03480378921486E+25

Исправленная программа:
Program lab5;
const n=11;
type masiv=array[1..n]of integer;
var l,k,m:masiv;
i:integer;
procedure vivod(mas:masiv);
var i:integer;
begin
for i:=1 to n do write(mas[i],' ');
writeln;
end;
procedure new_mas(var mas:masiv);
var i,j:byte;
min:integer;
begin
j:=1;
min:=mas[1];
for i:=2 to n do
if (min>mas[i]) then
 begin
 min:=mas[i]; j:=i;
 end;
writeln('min = ',min);
mas[j]:=mas[1];
mas[1]:=min;
end;
begin
writeln('Дано:');
randomize;
for i:=1 to n do
 begin
 l[i]:=random(-56,40);
 k[i]:=random(-56,40);
 end;
write('массив L[',n,']: ');
vivod(l);
new_mas(l);
write('измененный массив L[',n,']: ');
vivod(l);
write('массив K [',n,']: ');
vivod(k);
new_mas(k); 
write('измененный массив K[',n,']: ');
vivod(k);
for i:=1 to n do m[i]:=l[i]+k[i];
write('массив M[',n,']: ');
vivod(m);
end.

Пример:
Дано:
массив L[11]: 4 -34 -2 3 -53 -53 38 1 -33 -3 11 
min = -53
измененный массив L[11]: -53 -34 -2 3 4 -53 38 1 -33 -3 11 
массив K [11]: -43 -18 -8 -9 34 -34 -49 40 -47 -22 9 
min = -49
измененный массив K[11]: -49 -18 -8 -9 34 -34 -43 40 -47 -22 9 
массив M[11]: -102 -52 -10 -6 38 -87 -5 41 -80 -25 20