O zaman özyineli fonksiyon ile yapip değer döndüreceksin..
Kod:
Uses Crt;
var
a,b,c:integer;
Function us(x,y:integer):integer;
var
q:real;
begin
q:=Exp(y*Ln(x));
us:=round(q);
end.
begin
clrscr;
write('Sayıyı giriniz');readln(a);
write('Sayının üssünü giriniz');readln(b);
c:=us(a,b);
writeln(a,'''nın,b'. kuvveti',c,'dir');
end.
gibi gibi..