то Gastly условие: m - монитор s - системник a - кол-во 1 рейсов b - кол-во 2 рейсов c - кол-во 3 рейсов a+b+c->min (3a+2b+c)m=15m (a+2b+4c)s=15s a>=0 b>=0 c>=0 также можно задать еще и на максимальное значение для a, b, с : a<=5 b<=7 c<=3 решу способом перебора(если можно)... вот: uses crt; var a,b,c:integer; d,min:integer; Begin clrscr; min:=15; for a:=0 to 5 do begin for b:=0 to 7 do begin for c:= 0 to 3 do begin if (3*a+2*b+c=15)and(a+2*b+4*c=15) then begin d:=a+b+c; if d min:=d; writeln('min= ',d,' : a=',a,', b=',b,', c=',c); end; end; end; end; readkey; End. PS: жду репки