program pil_7_25(input,output);
var
	k : 1..maxint;

begin
	Write('Input k : ');
  Read(k);
  Write('Мы собрали ', k,' гриб');
  if (k mod 100 < 20)and(k mod 100 > 10) then Write('ов')
  else
	  case k mod 10 of
	  	1 : ;
	  	2..4 : Write('а');
	  	5..9,0 : Write('ов');
	  end;
  Write(' в лесу.');
  WriteLn;
end.