program WaffleProgram (input, output);
uses crt;
Const
  Min   = 1;
  Month = 5;
Type
  WaffleType    = (Plain, OatBran, RaisinBran, BlueBerry);
  SalesDataType = Array [Min..Month, Plain..BlueBerry] of Integer;
Var
  WaffleArray : SalesDataType;
  Waffle      : WaffleType;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
procedure ReadData (Var WaffleArray : SalesDataType);
var
 Loop   : Integer;
 Loop2  : Integer;
begin {ReadWaffle}
  for Loop := Min to Month do
    for Loop2 := 1 to 4 do
      begin {Nested for Loop}
        write (Loop2,' sold during month #',Loop);
        readLn (WaffleArray [Loop, Loop2]);
      end;  {Nested for Loop}
end;  {ReadWaffle}
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
procedure PrintData (var WaffleArray : SalesDataType);
begin {WriteWaffle}

end;  {WriteWaffle}
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
procedure PrintSummary;
begin {PrintSummary}

end;  {PringSummary}
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
begin {Main}
  clrscr;
  ReadData (Waffle);
end.  {Main}