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.
b thay n bằng 4 là được nhé