Составьте программу, которая по введенному вами K - числу грибов печатает фразу, причем согласовывает окончание слова с числом K. Количество грибов может быть любым целым числом: 1, 3, 34, 127 и т. д. Окончание фразы определяется значением последней цифры.

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 1021) and (g mod 10>1) and (g mod 10<5)) then begin writeln ('Мы нашли в лесу ', g,' гриба') ; i:=1; end;

if i=0 then writeln ('Мы нашли в лесу ', g,' грибов') ;

end.