Бизнесмен василий после прочтения известной книги решил открыть новый бизнес – отгружать апельсины бочками. партнерам важно знать сколько именно бочек апельсинов отгружается каждый день. мобильный телефон василия поддерживает только транслит, поэтому он передает сообщения вида "n bochek" . например, "3 bochki" или "1 bochka"/ напишите программу, которая выбирает правильное слово (из "bochka" , "bochek" , "bochki" ) в зависимости от n.

Program vasil ; var n , m  : integer ; begin   write ( 'vvedi chislo bochek n=' ) ;   readln ( n ) ;   m : = n mod 10 ;       if ( m = 1 and n < > 11  ) then writeln ( n , '  bochka' )      else if (m < = 4 and n < > 12 and n < > 13 and n < > 14 and m < > 0) then writeln ( n , ' bochki' )        else writeln ( n , ' bochek' ) ;   end.    так, наверное. если будет косяк, то пиши, или сам сообрази где ошибка. сейчас нет под рукой компилятора, не могу оттестировать.