Căn bậc ba nè !!!!!!(bt pascal)

program canbacba;
uses crt;
var x,kq:real;
begin
writeln('Nhap vao so can tim can cua no:');
readln(x);
kq:=exp((1/3)*ln(x));
writeln('So tim can la:',kq:3:9);
readln;
end.