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

Паскаль АВС:

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.