Составить программу которая выводит на экран значение выражения x в степени 10 где x целое число(x< 5) все это делать надо в паскале

Program 1;
var x : integer;
begin
write('введите число');
readln(x);
if x<5 then write(xxp(10)) else write('число <5');
readln;
end.