Question

•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.
какой это язык програмирования