Нужно найти план выпуска продукции Delphi либо Paskal

[XaaXaa]

На предприятии могут выпускать изделия 5-ти видов (столы, стулья, шкафы, тумбочки и кресла). В силу ограниченности возможностей сборочного цеха в нем могут собирать за день 105, 240, 35, 95 и 68 изделий соответственно (если собирать только один вид изделия), либо какую-нибудь комбинацию тех и других, определяемую приемлемыми трудозатратами. Склад может принять не более 130 изделий любого вида в сутки. Известно, что шкаф стоит в 5 раза дороже стола, тумбочка в 3 раза дороже стула и в 1,5 раза дешевле кресла, которое в 2 раза дешевле шкафа. Требуется найти такой план выпуска продукции, который обеспечил бы предприятию наиболь¬шую выручку.



Вот я ее в паскале решил но не совсем я не учел текст (если собирать только один вид изделия)я просто не знаю как сделать вот это (....определяемую приемлемыми трудозатратами)

#program m;
var
a,b,c,d,e,w,f,f1,f2,f22:integer;
begin
Writeln('vvedite kol-vo predmetov po paryadky');
readln(a,b,c,d,e);
Writeln('vvedite kol-vo det v sytki');
readln(w);
begin
f1:=a+b+c+d+e;
if f1>w then f:=f1-w
else writeln ('stolov',a,'stylev ',b,'shkafof',c,'tymb',d,'kresel',e);
end;
begin
f2:=f-e;
if f2>0 then f22:=f2;
if f2<0 then  f22:=e-f;
if f2=0 then writeln('stolov',a,'stylev ',b,'shkafof',c,'tymb',d);
и так далее....
end;
end.