var a: integer; b, c: real;
begin
  readln(b);
  for a := 1 to 20 do
  begin
    c := (a * 50) * (b / 1000);
    writeln(a * 50, ' г = ', c:0:2, ' руб.');
  end;
end.