Var i:integer; a:longint; funtion us(x:longint;n:integer):longint; Begin if n=0 then us:=1 else us:= x * us(x,n-1); End; Begin write('Sayı = ');read(a); writeln('Üssü = ');readln(i); writeln(us(a,i)); readln; End.