program toko_susu;
uses crt;
var 
susu, jmlh, krds, klng:integer;
kemasan, i, j:char;
begin 
clrscr;
 
end.