NaN выводится, потому что 
— отрицательное число. И потом происходит извлечение корня из этого отрицательного числа.
Чтобы NaN не было, нужно передать положительное число в функцию Power(), а потом возвращенный результат сделать отрицательным. (Это сработает только для нечетных степеней корня)
Нужно немного изменить код:
if x > 5 then
begin
cosVal := cos(sqr(x));
if cosVal < 0 then
writeln(Power(abs(cosVal), 1 / 3) *-1)
else
writeln(Power(cosVal, 1 / 3));
end;
import random
while True:
a = random.randint(1, 9)
b = random.randint(1, 9)
i = 0
while True:
try:
print("%dx%d=" % (a, b), end="")
i = int(input())
except ValueError:
print("Введите число!")
else:
break
rightAnswer = a * b
if i == rightAnswer:
print("Верно!\n")
else:
print("Неверно! Верный ответ: %d\n" % rightAnswer)
Program Program1;
var
a:array [1..10] of integer;
i:integer;
begin
randomize;
Writeln('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
writeln('a[',i,']=',a[i]);
end;
for i:=1 to 10 do
if i mod 2 = 0 then a[i]:=sqr(a[i]);
Writeln('Преобразованный массив: ');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.