ClubPoker-DNA

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 perpangkatan: ');readln(x);
writeln(n,'pangkat',x,'= ',Pangkat(x));
end.