begin
     Sleep(150);
     Dec(x,25);
     bt:=TextABC(bt.Clone);
     bt.Color:=RGB(x,x,x);
     bt.MoveOn(7,7);
   end;
begin
    TextBackGround(Black);
  ClrScr;
begin
   CenterWindow;
   SetFontName('Times');
   SetFontSize(12);
   TextColor(blue);
          writeln('Нажми 1 для повторения таб. умнож.');
          writeln('Нажми 2 для проверки таб.умнож.');
           readln(h);
   case h of
1:begin
  for a:=1 to n do
begin
  for b:=1 to n do
begin
   SetWindowSize(600,400);
   CenterWindow;
   SetFontName('Times');
   SetFontSize(12);
          writeln(a,'*',b);
           readln(c);
  If c=a*b then