program mn;
uses crt;
var x1,q,n,i,s:longint;
a:array[1..100]of longint;
BEGIN
ClrScr;
Write('x1,q,n:');
readln(x1,q,n);
a[1]:=x1;
s:=a[1];
Write(a[1]);
for i:=2 to n do
begin
a[i]:=a[i-1]*q;
s:=s+a[i];
Write(' ',a[i]);
end;
writeln;
writeln(s);
readln;
END.