Вкаждой больничной палате четыре койки. введите количество палат, количество больных мужчин и количество больных женщин. определите, можно ли разместить всех больных по палатам (естественно, в одну палату кладут больных одного пола).
var n,m,f,m1,f1:integer; begin readln(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.
var n,m,f,m1,f1:integer;
begin
readln(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.