Program bcc;

Uses crt;

Var a,b:byte;

BEGIN

Clrscr;

For a:=2 to 9 do

 Begin

    For b:=1 to 10 do writeln(a,'x,'b,'=',a*b);

    Delay(1000);{tạm dừng sau mỗi bảng cửu chương được in ra}

    Writeln;{ngăn cách các bảng cửu chương}

   End;

  Readln

End.