Advertisement
knyazer

Untitled

Mar 1st, 2021
1,395
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.14 KB | None | 0 0
  1. var
  2.   ans:BigInteger;
  3.   x,n,i:integer;
  4.  
  5. begin
  6.   readln(x, n);
  7.   ans := 1;
  8.   for i:=1 to n do
  9.     ans := ans * x;
  10.   writeln(ans);
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement