Здравствуйте, levushka-ivlev!

Вот - как-то так...

[code lang=pascal]{ В комнате могут стоять стулья и табуретки. У каждого стула 4 ножки, у каждой табуретки 3 ножки.
Всего в комнате N ножек. Сколько в комнате стульев и сколько табуреток.}

program Kol_Mebel;

var
x, y, n: integer;
i, j, k: integer;

begin
write('Кол-во ножек - ');
readln(n);
k := 1; // Кол- вариантов
case n of
3: writeln('Кол-во табуреток - 1');
4..6: writeln('Кол-во или стул - 1 или табуретка - 1');
7: writeln('Кол-во стул - 1 и табуретка - 1');
else
if n < 3 then writeln('Вариантов Кол-ва : 0')
else writeln('Варианты Кол-ва :')
end;
x := (n - 3) div 4; // Максимальное кол-во стульев
y := (n - 4) div 3; // Максимальное кол-во табуреток
for i := 1 to x do
for j := 1 to y do
if (3 * j + 4 * i) = n then
begin
writeln('Вариант - ', k); k := k + 1;
writeln('Кол-во стульев - ', i);
writeln('Кол-во табуреток - ', j);
end;
end.[/code]