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