Mình dùng đệ quy được không bạn?
program CocaCola;
uses crt;
var a,b,c,kq: integer;
function so_lon_coca(a,b,c:integer):integer;
begin
if((a+b)<c) then so_lon_coca:=0
else
so_lon_coca:= (a+b) div c+so_lon_coca((a+b) div c,(a+b) mod c,c);
end;
begin...