Составьте программу, которая по введенному вами K - числу грибов печатает фразу меньше Мы нашли в лесу K грибов больше , причем согласовывает окончание слова меньше гриб больше с числом K. Количество грибов может быть любым ...

var g,i:integer; begin  read(g); if (g=1) or ((g>20) and (g mod 10=1)) then begin writeln('Мы нашли в лесу ',g,' гриб'); i:=1; end; if ((g mod 10>1) and (g mod 10<5)) or ((g>21) and (g mod 10>1) and (g mod 10<5)) then begin writeln('Мы нашли в лесу ',g,' гриба'); i:=1; end; if i=0 then writeln('Мы нашли в лесу ',g,' грибов'); end.