Var x,y,z:real; begin writeln('ВВЕДИТЕ ЧИСЛО'); readln(x); writeln('ВВЕДИТЕ СТЕПЕНЬ'); readln(y); z:= x^(1*y); writeln('ОТВЕТ:',

Проблема заключается в данной строчке: z:= x^(1*y)

В программировании не существует оператора \"^\" для возведения числа в степень, следовательно его необходимо заменить.

z:=exp((1*y)*LN(x));

Так же, можно добавить uses Math; перед определением переменных Var и заменить строку на

z:=Power(x,(1*y));