Написать программу в Паскале, которая будет возводить числа в степень

Паскаль АВС:Program  Vareeenka;uses crt;var   x,y:real;begin  writeln('*** Alphaeus is thinking... ***');  writeln('***          OK             ***');  writeln();  write('Введите основание степени ');  readln (x);  write('Введите показатель степени ');  readln (y);  writeln('*** Вычисляю... ***');  writeln(power(x,y):8:2); ;end.