//x - Ваше число (integer, real)
//N - степень (integer)
//S - здесь будет результат (integer, real)
//i - счётчик (integer)
N:= 2;
x:=(8+t);
S:=1;
for i:=1 to N do S:=S*x;
//x - Ваше число (integer, real)
//N - степень (integer)
//S - здесь будет результат (integer, real)
//i - счётчик (integer)
N:= 2;
x:=(8+t);
S:=1;
for i:=1 to N do S:=S*x;