Program Kudos;

uses

  Printer;

var

  alpha: integer;

  k: real;

  m: real;

  n: real;

  d, r: real;

begin

writeln(Lst,'((C))2');

for alpha := 100 downto 2 do

  begin

    k := -1.442695041*ln(alpha/100);

    m := -1.442695041*ln((alpha-1)/100);

    n := m-k;

    if alpha = 100 then

      d := 0

    else

      d := ln(0.5)/ln(1-(alpha/100));

    r := n;

    writeln(Lst,'            Failure Rate:  ',alpha,'%   Kudos:  ',k:0:3,'   Difficulty:  ',d:0:3,'   Award:  ',n:0:3);

  end;

end.