Надо ответить на вопрoc

[Akainu]

program prim9;
var x,s:real;
i:integer;
a:array[1..4]of real;
function ct(y,z,t:real):real;
begin
ct:=z*exp(t*ln(y));
end;
begin
readln(x);
for i:=0 to 4 do begin
write('a[i]=');
readln(a[i]);
end;
for i:=0 to 4 do
s:=s+ct(x,a[i],i);
writeln('s=',s:10:2);
end.
Что будет если х отрицателен? как это можно исправить? И если программа неправильная, желательно просто дать ответ ^_^

[Shift_sk]

если тебе надо х положительный проверяй какой он!!!если отрицательный домножай на -1

[Akainu]

препод говорит что это не выход

[Niro]

А в чём проблема, что возводить в степень обязательно с помощью экспоненты и логарифма? Можно просто в цикле или же игрек сразу брать по модулю, а ниже в функции проверять, если игрек отрицателен и t не четное, то ct домножить на минус один