•TaTaPmember
•ученый

Var a,b,c,i:integer;
begin
writeln(' Конфет в вазе левой');
read(a);
writeln(' Конфет в вазе средней');
read(b);
writeln(' Конфет в вазе правой');
read(c);
repeat
while (a>0) do
begin
i:=i+1;
a:=a-1;
while (b>0) do
begin
i:=i+1;
b:=b-1;
while (c>0) do
begin
i:=i+1;
c:=c-1;
end;
end;
end;
until (a=0) or (b=0) or (c=0);
writeln(i, ' конфет съела Ленка');
end.
какой это язык програмирования

ну обясни

Скрин кинь,посмотрю

Задача 6. КонфетыНа столе стоят три вазы с конфетами. В левой вазе лежат A конфет, в средней вазележат B конфет, в правой вазе лежат C конфет. Лена съедает одну конфету из левой вазы,затем – одну конфету из средней вазы, затем из правой, средней, левой, средней, правой,средней и т. д. (слева направо, затем налево, опять направо и т.д.)Если Лена хочет взять конфету из какой-то вазы, а конфет там нет, она расстраиваетсяи идёт спать. Определите, сколько конфет съест Лена.Программа получает н

Дак,ты должен написать программу на языке программирования по данной задаче

Как я понял