chỉ giúp em bài pascal .

[tuanrint]

Nhập số a mũ x tính a^x biết x<0;
Thank

[nirvanat]

For i:=1 to abs(x) do a:=a/10;
writeln(a:0:x+2);