program sum;
{$APPTYPE CONSOLE}
uses SysUtils, Math;
var gankin, nensu, ganri: integer;
var nenri, r: real;
begin
    write('gankin ? (en): ');
    readln(gankin);
    write('nensu ? (nen): ');
    readln(nensu);
    write('nenri ? (%): ');
    readln(nenri);
    r := 1 + ( nenri * 0.01 );
    ganri := trunc( gankin * Power( r, nensu ) ); 
    writeln('ganri = ', ganri:8, ' en');
    writeln('risoku =', ( ganri - gankin ):8, ' en');
readln
end.