поправьте меня если ^ это не указатель стпени, но если это степень то вот очень просто:
var a,x:extended; n,i:longint;Begin read(x); read(n); a:=1; for i:=1 to n do a:=a*x; writeln(a:0:0);end.
поправьте меня если ^ это не указатель стпени, но если это степень то вот очень просто:
var a,x:extended; n,i:longint;
Begin
read(x);
read(n);
a:=1;
for i:=1 to n do
a:=a*x;
writeln(a:0:0);
end.