Thuật toán tìm căn bậc n của một số thực a không âm

[assassin64]

Mọi người ơi, giúp em tìm thuật toán tìm CĂN BẬC N CỦA MỘT SỐ THỰC A KHÔNG ÂM VỚI!!!

[vienle]

program can_bac;
var a,n:integer;
kq:real;
begin
write('Nhap a khong am : ');
readln(a);
write('Can bac may ? ');
readln(n);
kq:=exp((1/n)*ln(a));
write('Can bac ',n,' cua ',a,' = ',kq:4:3);
readln
end.