program sklypas2;
  { 115 u‘davinys, antrasis sprendimas }
  procedure plotas (n : integer; { atkarp— skai‡ius }
                    var ha, a : integer); { sklypo dydis hektarais ir arais }
    var plotas, plotis, ilgis : integer;
  begin
    plotis := n div 4;   { kvadrato kražtin‚ }
    if (n mod 4 = 2) or (n mod 4 = 3)  { liko 2 arba 3 atkarpos }
       then ilgis := plotis + 1
       else ilgis := plotis;
    plotas := ilgis * plotis;
    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.

