const maxn=1000;type
type1=record
a,b,dep,l,w:longint;
end;var a:array[1..10000]of type1;
b:array[0..maxn,0..maxn]of boolean;
na,nb,mb:longint;procedure out(i:longint);const str:array[1..6]of string=('fill A','fill B','empty A','empty B',
'pour B A','pour... |
