program mertani;
var a1, q:real;
    n, i :integer;
begin
     Writeln('Kerem az elso elemet!');
     ReadLn(a1);
     Writeln('Kerem a hanyadost!');
     ReadLn(q);
     Writeln('Kerem a kiirando tagok szamat!');
     ReadLn(n);
     for i:=1 to n do
     begin
       if i>1 then a1:=a1*q;
       Write(a1:8:2);
     end;
     readln
end.