const
 Workshops: array[1..5] of STRING =
           ('Foundry','Forge','Metal-working','Assembly','Shipping');
var
 Pay:ARRAY[1..5,1..12] of WORD;
 Month, Months_bef,Num_of_Quart:BYTE;
 Pay_Q:WORD;
 i,j,k,l,m:Integer;
 F:Text;
 Dat_Type,Dt:Char;

BEGIN
 REPEAT
  Write('Exit (Y/N)? ');
  ReadLn(Dt);
  If (Dt='N') or (Dt='n') then
   begin
    Assign(F, 'C:\Data.txt');
    Write('New table (Y/N)? ');
    ReadLn(Dat_Type);
    If (Dat_Type='Y') or (Dat_Type='y') then
     begin
      Writeln('CAUTION!!! All the previous data will be removed!');
      Write('New table (Y/N)? ');
      ReadLn(Dat_Type);
     end;
    If (Dat_Type='Y') or (Dat_Type='y') then
     begin
      Months_bef:=0;
      Month:=1;
      ReWrite(F);
      Close(F);
     end else
     begin
      ReSet(F);
      ReadLn(F,Months_bef);
      Month:=Months_bef+1;
      For i:=1 to 5 do
       For j:=1 to Months_bef do
        ReadLn(F, Pay[i,j]);
      Close(F);
     end;
    WriteLn('Month number ',Month);
    Writeln('Energy consumtion of workshops:');
    For i:=1 to 5 do
     begin
      Write(Workshops[i]+': ');
      ReadLn(Pay[i,Month]);
     end;
    WriteLn;
    Write('Workshops:     ');
    For j:=1 to 12 do Write(j:5);
    WriteLn;
    Num_Of_Quart:=Month div 3;
    For i:=1 to 5 do
     begin
      Write(Workshops[i]);
      For k:=length(Workshops[i]) to 14 do Write(' ');
      For j:=1 to Month do Write(Pay[i,j]:5);
      WriteLn;
      Write('Quaters_medium:');
      For l:=1 to Num_of_Quart do
       begin
        Pay_Q:=0;
        For m:=1 to 3 do
         Pay_Q:=Pay_Q+Pay[i,(l-1)*3+m];
        Pay_Q:=Pay_Q div 3;
        Write('     ',Pay_Q:5,'     ');
       end;
      WriteLn;
     end;
    WriteLn;
    ReWrite(F);
    WriteLn(F,Month);
    For i:=1 to 5 do
     For j:=1 to Month do
      WriteLn(F, Pay[i,j]);
    Close(F);
   end;
 UNTIL (Dt='Y') or (Dt='y');
END.