В каждой больничной палате четыре койки. Введите количество палат, количество больных...

Question

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

Answer 1

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.