Лёгкая задача по информатике паскаль.
По заданному числу x и целому n вычислить x^n используя цикл repeat...until.

Var x,xn:real; n,i:integer;
begin
readln(x,n);
xn:=1; i:=0;
repeat
i:=i+1;
xn:=xn*x;
until i=abs(n);
if n<0 then xn:=1/xn;
writeln(x:3:1,^,n, = ,xn:6:4);
end.

Пример:
2 -3
2.0^-3 = 0.1250

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.