Сколькими можно оплатить марками бандероль на сумму 24 рублей, если есть неограниченное число марок достоинством в 6,5,2 рублей и два отличающиеся только порядком наклейки марок, считаются в паскале,!

Const m=24;
var k6,k5,n:integer;
begin
for k6:=0 to m div 6 do
 for k5:=0 to (m-k6*6) div 5 do
  if (m-k6*6-k5*5) mod 2 =0 then n:=n+1;
writeln(n);
end.

Результат:
9