program sklypas1;
  { 115 u‘davinys, pirmasis sprendimas }
  procedure plotas (n : integer; { atkarp— skai‡ius }
                    var ha, a : integer); { sklypo dydis hektarais ir arais }
    var plotas, plotis, ilgis : integer;
  begin
    plotis := 0;
    plotas := 0;
    repeat
      plotis := plotis + 1;
      ilgis := (n - 2 * plotis) div 2;
      if plotis * ilgis > plotas
         then plotas := plotis * ilgis
    until plotis >= ilgis;
    ha := plotas div 100;
    a := plotas mod 100;
  end;

   var n, ha, a : integer;
begin
  read (n);
  plotas (n, ha, a);
  writeln (ha, ' ha ',a , ' a')
end.

