Bài 1: Viết phương trình in ra các bảng cửu chương Mọi người giúp mình với, cảm ơn rất nhìu 🥰🥰

uses crt;
var j,i:longint;
begin
 clrscr;
  for i:=1 to 10 do
        begin
         for j:=1 to 10 do write(i,'*',j,'=',j*i,'   ');
         writeln;
         writeln;
        end;
 readln
end.

lưu ý: mk xuất theo hàng ngang 

Program BTT;
Uses crt;
Var i,j: longint;

Begin
        Clrscr;
        For i:=1 to 10 do
        Begin
                For j:=1 to 10 do
                        Writeln(i,' x ',j,' = ',i*j);
                Writeln;
        End;

        Readln
End.