{$N+$E+}

program TestRazeniScitani;
var n:integer;

function rada(i:integer):real;
begin
  rada:=exp(-ln(1.1)*i);
end;
function soucetPrvnichNVzestupne(m:integer):real;
var i:integer;
    mezisoucet:real;
begin
  mezisoucet:=0;
  for i:=0 to m do
  begin
    mezisoucet:=mezisoucet+rada(i);
  end;
  soucetPrvnichNVzestupne:=mezisoucet;
end;
function soucetPrvnichNSestupne(n:integer):real;
var i:integer;
    mezisoucet:real;
begin
  mezisoucet:=0;
  for i:=n downto 0 do
  begin
    mezisoucet:=mezisoucet+rada(i);
  end;
  soucetPrvnichNSestupne:=mezisoucet;
end;

begin

  write('zadejte pocet scitancu n:' );
  readln(n);
  writeln('soucet vzestupne: ', soucetPrvnichNVzestupne(n));
  writeln('soucet sestupne: ', soucetPrvnichNSestupne(n));
  readln;

end.