В каждой больничной палате четыре койки. Введите количество палат, количество больных мужчин и количество больных женщин. Определите, можно ли разместить всех больных по палатам (естественно, в одну палату кладут больных одного пола).

Для того, чтобы определить можно ли разместить всех больных по палатам:

var n, m, f, m1, f1:integer;

begin

readln (n, m, f);

m1:=m mod 4;

if m10 then m1:=1;

f1:=f mod 4;

if f10 then m1:=1;

if n>=m div 4+f div 4+m1+f1 then writeln ('mojno') else writeln ('nelzya');

end.