Московская городская олимпиада школьников по информатике

Показали мне тут одну из задач. Не правда ли ну о-о-очень узнаваемая картина?? )

Задача "Покупка билетов":
"За билетами на премьеру нового мюзикла выстроилась очередь из N человек, каждый из которых хочет купить 1 билет. На всю очередь работала только одна касса, поэтому продажа билетов шла очень медленно, приводя «постояльцев» (Шикарно сказано!!) очереди в отчаяние. Самые сообразительные быстро заметили, что, как правило, несколько билетов в одни руки кассир продаёт быстрее, чем когда эти же билеты продаются по одному. Поэтому они предложили нескольким подряд стоящим людям отдавать деньги первому из них, чтобы он купил билеты на всех.
Однако для борьбы со спекулянтами кассир продавала не более 3-х билетов в одни руки, поэтому договориться таким образом между собой могли лишь 2 или 3 подряд стоящих человека.
Известно, что на продажу i-му человеку из очереди одного билета кассир тратит Ai секунд, на продажу двух билетов — Bi секунд, трех билетов — Ci секунд. Напишите программу, которая подсчитает минимальное время, за которое могли быть обслужены все покупатели.
Обратите внимание, что билеты на группу объединившихся людей всегда покупает первый из них. Также никто в целях ускорения не покупает лишних билетов (то есть билетов, которые никому не нужны)."

Не будем показывать пальцем, что это за мюзикл, к тому же с марта и показывать будет не на что )

(источник: http://olympiads.ru/moscow/2003/ochn/archive.shtml , там же условия и решения.)

[BAZIL]

Опишем программно:

const
MaxN = 5000;
var
n : word;
a, b, c : array [0 .. MaxN] of integer;
d : array [0 .. MaxN] of longint;
i : integer;

function min(a,b : longint) : longint;
begin
if a<b then min:=a else min:=b;
end;

begin
assign(input, 'b.in');
reset(input);
assign(output, 'b.out');
rewrite(output);

readln(n);
for i := 1 to n do
read(a[i], b[i], c[i]);

d[0] := 0;
d[1] := a[1];
d[2] := min(a[1]+a[2], b[1]);

for i := 3 to n do
d[i] := min( d[i-1] + a[i], min( d[i-2] + b[i-1], d[i-3] + c[i-2] ) );

writeln(d[n]);
close(input);
close(output);
end.