Будем считать, что у осы 6 ног, у паука – 8, у тигра – 4 и у кенгуру – 2. на вход программе подаётся общее количество ног – n. требуется подсчитать, скольк ими можно составить это ко- личество, используя описанных выше животных. если не удастся найти ни одного то сообщить об этом специальным выводом: impossible

Var n,k8,k6,k4,k2,k:integer;
begin
write('n = ');
readln(n);
if n mod 2 = 1 
 then writeln('IMPOSSIBLE')
 else begin
 k:=0;
 for k8:=0 to n div 8 do
  for k6:=0 to (n-8*k8) div 6 do
   for k4:=0 to (n-8*k8-6*k6) div 4 do
    begin
    k2:=(n-8*k8-6*k6-4*k4) div 2;
    k:=k+1;
    end;
 writeln('k = ',k);
end;
end.

Пример:
n = 10
k = 6