составить программу которая выводит на экран значение выражения 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.