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.