На столе стоят три вазы с конфетами.в левой вазе лежат a конфет,в средней вообще лежат b конфет,в правой вазе лежат c конфет.лена съедает одну конфету из левой вазы,затем-одну конфету из средней вазы,затем из правой,средней вазы,затем из правой,средней,левой,средней,правой,средней и т.д. если лена хочет взять конфету из какой-то вазы ,а конфет там нет,она расстраивается и идёт спать.определите,сколько конфет съест лена программа получает на вход три целых неотрицательных числа a,b,c-количество конфет в левой,средней ,правой вазе.
begin
readln(a,b,c);
f:=true; n:=0;
while f do
begin
if f and (a>0)
then begin a:=a-1; n:=n+1; end else f:=false;
if f and (b>0)
then begin b:=b-1; n:=n+1; end else f:=false;
if f and (c>0)
then begin c:=c-1; n:=n+1; end else f:=false;
if f and (b>0)
then begin b:=b-1; n:=n+1; end else f:=false;
end;
writeln(n);
end.
Пример:
3 3 3
7