Program g;
uses crt;
Var i,n,m,x,k: integer;
s,z: string;
begin
clrscr;
write('Nhap m:');
readln(m);
write('Nhap n:');
readln(n);
write('Nhap k:'); readln(k);
x := m;
For i:=1 To n-1 do
x:=x*m;
str(x,s);
x:=length(s);
z:='';
For i:=x-k+1 To x do z:=z+s[i];
writeln(k, ' chu so cuoi cung cua ',m,'^',n,' la:',z);
readln
end.