Программа 1:

program PowerOfEight;
var
x, result: real;
begin
write('Введите число x: ');
readln(x);
result := power(x, 8);
writeln('Результат: ', result:0:2);
end.

Программа 2:

program PowerOfEight;
var
x, result: real;
i: integer;
begin
write('Введите число x: ');
readln(x);
result := 1;
for i := 1 to 8 do
begin
result := result * x;
end;
writeln('Результат: ', result:0:2);
end.