Помогите пожалуйста

uses Math;

var n:integer;

 a:real;

begin

 write('Введите число: '); readln(a);

 repeat

 write('Введите ступень: '); readln(n);

 until (n=2) or (n=3);

 case n of

 2: writeln('Квадрат числа равен ', power(a,n):0:2);

 3: writeln('Куб числа равен ', power(a,n):0:2);

 end;

end.