var
k: integer;
begin
readln(k);
if k< 0 then
writeln('не может такого быть')
else
begin
write('мы нашли в лесу ',k,' гриб');
if (k mod 100 in [5..19]) then
writeln('ов')
else if (k mod 10 in [2..4]) then
writeln('а')
else if (k mod 10=1) then
writeln
else
writeln('ов');
end;
end.
0000010001
0010000000
00000O0100
1000100001
000O000000
0010001000