Задача на нахождение максимальной разницы между вырученными и потраченными деньгами)

[Вася Маклауд]

итак задачка...
Ярмарка товаров длится ровно n дней и в каждый день назначается определенная глобальная скидка на все виды товаров.За один день ярмарки можно купить либо купить либо продать только один товар.Если в этот день действует глобальная скидка в размере d,а цена на товар x,то можно продать или купить товар по цене равной x*(100-d)/100.
Имеется список товаров P,которые надо продать на данной ярмарке(список товаров представлен ценами на него а не конкретно названием),также имеется список Q товаров которые надо купить за время ярмарки.Известны скидки всех дней ярмарки.
Нужно максимизировать разность между деньгами,вырученными с продаж,и деньгами потраченными на покупку.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n=4;
   var
   xp1,xp2,xq1,xq2,max,min,i,min1,max1,xpmax,xpmin,xqmin,xqmax:integer;
   ps1,ps2,qs1,qs2,razn:real;
   ckud:array [1..4]of integer;

begin
  try
       Writeln('Vvedite ceny tovara prodagi bez ckudku');
  readln(xp1);
   Writeln('Vvedite ceny tovara prodagi bez ckudku');
  readln(xp2);
     Writeln('Vvedite ceny tovara pokypku bez ckudku');
  readln(xq1);
   Writeln('Vvedite ceny tovara pokypku bez ckudku');
  readln(xq2);

   if xp1>xp2 then
  begin
  xpmax:=xp1;
  xpmin:=xp2;
  end
  else
  begin
  xpmax:=xp2;
  xpmin:=xp1;
  end;
      if xq1>xq2 then
  begin
  xqmax:=xq1;
  xqmin:=xq2;

  end
  else
  begin
  xqmax:=xq2;
  xqmin:=xq1;
  end;
  ckud[1]:=85;
  ckud[2]:=10;
  ckud[3]:=15;
  ckud[4]:=90;
  min:=ckud[1];
  max:=ckud[1];

               for i:=1 to 4 do

     if ckud[i]>max then
     begin
      max:=ckud[i];

     end;
                for i:=1 to 4 do
     if ckud[i]<min then
     begin
      min:=ckud[i];

     end;

     min1:=ckud[1];
  max1:=ckud[1];
                for i:=1 to 4 do
     if ((ckud[i]>max1)and (ckud[i]<>max)) then
     begin
      max1:=ckud[i];
     end;
                 for i:=1 to 4 do
     if ((ckud[i]<min1)and (ckud[i]<>min)) then
     begin
      min1:=ckud[i];
     end;
           ps1:=(xpmax*(100-min))/100;
  ps2:=(xpmin*(100-min1))/100;
  qs1:=(xqmax*(100-max))/100;
   qs2:=(xqmin*(100-max1))/100;
       razn:=(ps1+ps2)-(qs1+qs2);
           Writeln(razn:0:2);
    readln;

    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Помогите урезать программу если возможно,а то у меня мыслей уже нет никаких)Если вдруг что делал в Embarcadero RAD Studio.

[Alex11223]

Embarcadero RAD Studio

Delphi чтоли?)

Проблема-то в чем? В смысле урезать? Зачем?

[Вася Маклауд]

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