Задача по информатике, нужно решить ** pascal ABC...и я не понимаю!...

Question

Задача по информатике, нужно решить на pascal ABC...и я не понимаю! помогите!
условие:
составить программу, которая выводит на экран значение выражения X- в десятой степени, при условии X<5<br>????????????????????????????????????????????????????????????????????

Answer 1

var
x,n: real;
i: byte;
begin
write('Введите X: ');
readln(x);
n:=x;
for i:=1 to 9 do n:=n*x;
writeln(n);
end. 

Answer 2

Uses crt;
var x:integer;
begin
read(x);
x:=x*x*x*x*x*x*x*x*x*x;
write(x);
end.