Поделитесь своими знаниями, ответьте на вопрос:
Вкаждой больничной палате четыре койки. введите количество палат, количество больных мужчин и количество больных женщин. определите, можно ли разместить всех больных по палатам (естественно, в одну палату кладут больных одного пола
var n,m,f,m1,f1: integer; beginreadln(n,m,f); m1: =m mod 4; if m1< > 0 then m1: =1; f1: =f mod 4; if f1< > 0 then m1: =1; if n> =m div 4+f div 4+m1+f1 then writeln('mojno') else writeln('nelzya'); end.