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

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