Pangkat

We can finish the pangkat case with statement like this :

program pankat;
uses wincrt;
var I,n,x,hasil :integer ;

begin
readln(x,n);
I:=1; hasil:=1;
for I:=1 to n do
hasil:=hasil*x;
writeln(hasil);
readln;
end.