Дан одномерный массив. Удалить все элементы массива B,
удовлетворяющие условию Bi

1.123456789-номер телефона

2.мама помыла посуду-ткстовая информация

3.какой нибудь рисунок

4.музыка

5.кино 

один, два, три, четыре, пять

12345

2^3 = 8 цветов (скорее всего оттенки серого)

если числа небольшие и x в n степени умещается в longint, то можно в цикле от 1 до n умножать на x

var i,x,n: integer;

l: longint;

begin

readln(x,n);  

l: =1;  

for i: =1 to n do

l: =l*x;

write(l);

end.