Viết chương trình nhập in cửu chương 12 và13, cách nhau 10 khoảng trắng

program oken;

uses crt;

var i,j:longint;

begin

clrscr;

for j:=1 to 10 do

   begin

      for i:= 12 to 13 do

          write(i,' * ',j,'= ',j*i:10);

       writeln;

     end;

readln;

end.

Program Hotboy ;

uses crt;

var j : integer;

begin

    clrscr;

    Writeln('Bang cuu chuong ',12);

    For j := 1 to 9 do writeln(12,' x ', j, ' = ', j*12,' ':10);

Writeln('Bang cuu chuong ',13);

    For j := 1 to 9 do writeln(13,' x ', j, ' = ', j*13,'':10);

    readln

end.