Перевод из Паскаля в С++ Builder

[Ins1De]

Дано натуральные числа n и k. Проверить есть ли в записи числа n в степени k цифра m.

uses crt;
var p:Longint;
   n,k,m,i,k1:integer;
    a,b :string;
Begin
ClrScr;
Write('Введите  числа n,k=');
Read(n,k);
Write('Введите  цифру m=');
Read(m);
p:=1;
For i:=1 to k do
p:=p*n;
Str(p,a);
Str(m,b);
For i:=1 to length(a) do
if b=a[i] then k1:=k1+1;
Write('В записи числа-',a,' цифра-',m);
if k1<>0 then
Write(' присутствует')
 else
Write(' отсутствует');
Readkey;
end.

Помогите перевести пожалуйста. заранее спасибо!

[Hacker19_90]

n = pow(n,k);
while (n != 0)
{
    k = n%10;
    n = n/10;
    if (k == m)
    {
        cout << "Есть!!" << endl;
        break;
    }
}