KCHUSO Pascal

var m,n,k,i:longint;
   res,cs:int64;
   kq:string;
procedure giai ;
var i :longint ;
begin
    cs:=1;
    for i:=1 to k do cs:=cs*10;
    res:=1;
    for i:=1 to n do res:=(res*M) mod cs;
    str(du,kq);
    while length(kq) < k do kq:='0'+kq;
    writeln(kq);
end ;
begin
    assign(input, 'kchuso.inp');reset(input);
    assign(output, 'kchuso.out');rewrite(output);
    readln(m,n,k);
    giai;
end.