const m = 44; var x:integer; BEGIN x:=0; while x<=m/6 do begin if (((39 - 6*x) mod 5) = 0) then writeln('Табуретки: ',x,' стільці: ',(m-6*x) div 5); inc(x) end END.