Program CPascal;

const n=3; // Кол-во ваз

var x:array [1..n] of integer;
    i,all:integer;
    flag:boolean;

Begin
All:=0; // Обнуляем
for i:=1 to n do
    Begin
    Write('Кол-во конфет в ',i,'-й вазе: '); Readln(X[i]);
    Inc(All,X[i]); // Сколько было всего конфет...
    end;

Flag:=True; // Допустим, что конфеты есть...

// Этот цикл прогоняем один раз, ибо после он нам не нужен...
for i:=1 to n do if (X[i] <> 0) and Flag then Dec(X[i]) // Пока конфеты не кончились берем по одной...
                                         else Flag:=False; // Если конфеты кончились...
Repeat
for i:=n-1 downto 1 do  if (X[i] <> 0) and Flag then Dec(X[i]) // Пока конфеты не кончились берем по одной...
                                         else Flag:=False; // Если конфеты кончились...

for i:=2 to n do if (X[i] <> 0) and Flag then Dec(X[i]) // Пока конфеты не кончились берем по одной...
                                         else Flag:=False; // Если конфеты кончились...
Until (Flag = False); // Если конфеты кончились...

// Кол-во оставшихся конфет...
for i:=1 to n do
    Begin
    Writeln('Осталось конфет в ',i,'-й вазе: ',X[i]);
    Dec(All,X[i]); // Считаем, сколько конфет девочка схомячила...
    end;
Writeln('Ответ: девочка схомячила ',All,' конфет о_О');

// На правах рекламы за бесплатную помощь...
Writeln;
Writeln('WWW.CYBERPASCAL.RU - Помощь в решении задач по информатике и программированию!');
Writeln('С уважением, Александр Фомин!');
end.