Unit pizza;

interface
procedure Init();
procedure Order(N : LongInt; var A : array of LongInt);
procedure Delivery(I : LongInt);

implementation
uses pizzalib;
var
   order_num : LongInt;

procedure Init(); 
begin
   order_num := 0;
end;

procedure Order(N : LongInt; var A : array of LongInt);
begin
   Bake(order_num);
   order_num := order_num + 1;
end;

procedure Delivery(I : LongInt);
begin
end;

end.