var x,y,z:real;
begin
writeln('ВВЕДИТЕ ЧИСЛО');
readln(x);
writeln('ВВЕДИТЕ СТЕПЕНЬ');
readln(y);
z:= x^(1*y);
writeln('ОТВЕТ:', z);
end.
почему этот код не работает??