Padėkit išspręsti užduoti su Pascal

Sveiki. Gal kas nors žino kaip išspręsti šią programą:

Žinomas įdomus faktas: tarp neprinokusių pomidorų padėjus keletas raudonų

pomidorų, aplink juos esantys žali pomidorai ims nokti greičiau.

Vienoje eilėje sudėta n pomidorų. Laikykime, kad jie sunumeruoti nuo 1 iki n. Vienas

šių pomidorų yra raudonas. Jo numeris yra m. Per pirmąją dieną prinoksta abu šio

pomidoro kaimynai. Per kiekvieną tolesnę dieną prinoksta abu kiekvieno raudono

pomidoro kaimynai (suprantama, jei jie dar neprinokę). Nepamirškite, kad kraštinis

pomidoras turi tik vieną kaimyną.

Užduotis. Parašykite programą, kuri suskaičiuotų, kiek dar liks neprinokusių pomidorų po

d dienų.

Pradiniai duomenys. Pirmoje eilutėje įrašytai trys skaičiai: pomidorų skaičius n,

raudonojo pomidoro numeris m, dienų skaičius d.

Rezultatai. Į failą įrašomas vienas skaičius – neprinokusių pomidorų skaičius.

Duomenu failas:

9 4 2.

Kažkada šią programą buvo Informatikos olimpiadoje. Gal kas nors dar turi šios programos kodą. Iš anksto ačiū už pagalbą.

Sveikas, paieškojęs radau šios programos kodą:

program uzduotis_3;
const
   input_file  = 'pomidorai.in';
   output_file = 'pomidorai.out';
type
   pomidorai   = 2..70;
   pomidoras   = 1..70;
   dienos      = 1..30;
var
   input, output: text;
   n: pomidorai;
   m: pomidoras;
   d: dienos;
   kp, dp, i: integer;
begin
   Assign(input, input_file); Reset(input);
   Read(input, n, m, d);
   Close(input);

   {Kiek pomidoru is kaires}
   for i := 1 to m - 1 do
       kp += 1;

   {Kiek pomidoru is desines}
   for i := m + 1 to n do
       dp += 1;

   {Simuliuojame dienu eiga}
   for i := 1 to d do
       begin
           if kp <> 0 then kp -= 1;
           if dp <> 0 then dp -= 1;
       end;

   Assign(output, output_file); Rewrite(output);
   WriteLn(output, kp + dp);
   Close(output);
   ReadLn;
end.