PROGRAM PANGKAT

program perpangkatan;
uses wincrt;
var
n,x:integer;
function pangkat(M:integer):longint;
begin
if M=0 then
pangkat:=1;
else
pangkat:=n*pangkat(M-1);
end;
begin
clrscr;
writeln('Perpangkatan');
write('Input bilangan : '); readln(n);
write('Input Pangkat : '); readln(x);
writeln(n,' pangkat ',x,' = ',pangkat(x));
end.