program times_table;

uses crt;


procedure display_times_table;

var
   x,y : byte;
   i,m : byte;
   spc : byte;

begin
   textcolor(14);
   gotoxy(35,13);
   write('Times Tables');
   x := 2;
   y := 2;
   spc := 0;
   for m := 1 to 10 do
   begin
      for i := 1 to 10 do
      begin
         gotoxy(x,y);
         textcolor(3);
         write(m:2);
         textcolor(4);
         write(' x ');
         textcolor(3);
         write(i:2);
         textcolor(5);
         write(' = ':2);
         textcolor(7);
         write(m*i:2);
         inc(y,1);
      end;
      inc(x,16);
      if x = 82 then
      begin
         x := 2;
         spc := 13;
      end;
      y := 2+spc;
   end;
end;


var
   ch : char;

begin
   textmode(80);
   textcolor(black);
   clrscr;

   display_times_table;
   ch := readkey;

   textcolor(lightgray);
   clrscr;
end.