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

Паскаль АВС: 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.