fork download
  1. program k_do_n_tej;
  2. var i,k,n,y: integer;
  3.  
  4. begin
  5. read(k, n);
  6. write(k,'^',n,'=');
  7. y := 1;
  8. for i := 1 to n do
  9. y := y * k;
  10.  
  11. writeln(y)
  12. end.
Success #stdin #stdout 0s 5316KB
stdin
2 5
stdout
2^5=32