По информатике, нужно решить на pascal я не понимаю! ! условие: составить программу, которая выводит на экран значение выражения x- в десятой степени, при условии x< 5

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. 

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