Pangkat Case

We can finish the pangkat case with statement like this :

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

for completely source code you can download here.

Download